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Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
100% “errar free”: un test 
esclusivo certifica le tracce 
e lo spazio tra le tracce 
assicurando prestazioni 
“errar free” anche in 
presenza di 
disallineamento delle 
testine. 


Solo Dysan garantisce una 
superficie “a specchio” 
grazie alla sua avanzata ed 
unica tecnica di 
“burnishing” - questo 
risultato assicura un 
miglior segnale sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo milioni e milioni di 
rotazioni. 


Solo Dysan garantisce, 
mediante uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY 10, che le 
prestazioni “errar free” 
siano esaltate e mantenute 
nel tempo. 


Solo Dysan garantisce, con 
il suo metodo automatico 
di controllo qualità di tutta 
la produzione (risultato di 
una tecnologia leader nel 
mondo) che ogni diskette 
prodotta sia stata 
singolarmente testata e 
certificata. 
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Il pompiere 

E' scoppiato un incendio, e voi siete un pompiere che deve 
salvare il maggior numero di persone prima che muoiano 
soffocate tra le fiamme. Se sbagliate tre volte sarete nei guai : il 
severo comandante... 


AppleWorks 

Un'agenda telefonica che individui in tempo reale qualunque 
numero memorizzato? Molto di più. A Natale e a Pasqua stampa 
le etichette con gli indirizzi per spedire gli auguri, ma solo a chi i 
vostri auguri se li merita. Inoltre... 
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Macnews 

Sempre nuovi programmi per l’impareggiabile Macintosh, con 
un’hit-parade del mese davvero superba. 


Le rubriche 

6 Applichi 
8 Applicosa 

120 Applicando si trova anche qui 
122 Appli Help 
126 Lettere 
128 Disk Service 


Designer (pag. 83) 
Timer (pag.79) 


Dieta personalizzata 

Con questo sistema di data base nutrizionale, chiunque può 
personalizzare, a seconda della propria costituzione fisica e 
delle abitudini alimentari, una dieta bilanciata, a lunga o a breve 
scadenza. 


Dieta personalizzata, pag. 16 


Macprove 

Si potrebbe davvero definire una banda musicale, perché JAZZ, 
il nuovo pacchetto applicativo integrato della Lotus, racchiude in 
sé ben sei programmi interattivi. 

Contasecondi 

Un breve ma efficace programma per trasformare l’Apple // in un 
fedele e preciso timer che avverte del passare del tempo, e al 
momento giusto... 

Designer 

Un buon programma per disegnare: ma non solo per bambini che 
vogliono giocare. Il concetto dei potenti e costosi programmi di 
CAD/CAM, alla portata dell’Apple//, ne fa uno strumento quasi 
professionale. 

One liner 

Scrivere un programma compiuto in una sola linea? E’ possibile, 
e appassionante. Eccovene venti. 


Utility 

Programmare è divertente, creativo, affascinante. Ma talvolta 
bisogna tornare sul listato per correggere e modificare qualcosa. 
Allora può capitare di pentirsi di aver preferito la compattezza alla 
chiarezza. A meno che... 
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Il gioco dei pompieri, pag. 65 
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DIREZIONE GENERALE E AMMINISTRAZIONE 

(Miraste! s. t 

20122 Milano - Corso Monforte, 39 
Telefono (02) 702429 
Telex 350132 MACORM I 

DIRETTORE RESPONSABILE 
Stefano Benvenuti 

COLLABORATORI 
Adelio Barcella 
Aldo Brambilla 
Giorgio Caironi 
Gabriele Dardanoni 
Rossana Galliani 
Mario Magnani 
Francesca Marzotto 
Dolma Poli 
Domenico Semprini 
Enzo Tonti 

PUBBLICHE RELAZIONI 
Mauro Gandini 

REALIZZAZIONE EDITORIALE 
Editing Studio 
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Tulti i diritti di riproduzione e traduzio¬ 
ne di testi, articoli, progetti, illustra¬ 
zioni, disegni, listati di programmi, fo¬ 
tografie eco., sono riservati a termini 
di legge. I programmi pubblicati su 
Applicando possono essere utilizzati 
per scopi privati, scientifici e dilettan¬ 
tistici, ma ne sono vietati sfruttamenti 
e utilizzazioni commerciali. I mano¬ 
scritti. i disegni, le foto anche se non 
pubblicati, non si restituiscono. 

• 

Servizio abbonamenti: Editronica srl. 
C.so Monforte 39, Milano - Conto Cor¬ 
rente Postale n. 19740208 - Una co¬ 
pia L. 5.000. Arretrati 7.000 lire. Abbo¬ 
namento 10 numeri (senza dono) L. 
40.000 (estero L. 60.000). Abbona¬ 
mento 10 numeri, più le Pagine dei 
Software per Apple, L. 50.000 (estero 
70.000). Periodico mensile - Stampa: 
Sagdos, Via Europa 22/28, Brugherio 
(MI) - Fotocomposizione: News. Via 
Nino Bixio 6, Milano - Fotolito: Medio- 
lanum Color Separation, Via Marcona 
3, Milano. ® Copyright 1985 by Editro¬ 
nica srl - Registrazione Tribunale di 
Milano n. 24 del 15.1.1983 - Pubblicità 
inferiore al 70% 



L'estate è alle porte e, d'estate, bisogna essere 
snelli e forti, magri e belli, informa più che mai, ecco 
perché abbiamo dedicato la copertina alla Venere dei 
nostri tempi, una Venere che non emerge da una 
conchiglia attorniata dai flutti del mare, ma che sale 
leggera da una bilancia, consapevole di potersi tuffare, 
senza vergogna delle proprie forme, tra bianchi e 
spumeggianti cavalloni. Un momento, però. I lettori di 
Applicando, stando ai risultati dell'indagine conclusa da 
poco, sono uomini per il 90 per cento. Un omaggio quindi 
a quel 10 per cento di gentil sesso? Nemmeno per sogno: 
le lettrici di Applicando sono snelle, gentili e graziose 
per il solo fatto che adoperano un Apple. 

In realtà, scherzi a parte. Dieta personalizzata (pag. 
16) è un programma davvero ottimo Infatti, a differenza 
di tutte le diete che normalmente vengono proposte, con 
l'aiuto di questo Data Base nutrizionale è possibile 
impostare una dieta personalizzata e calcolare giorno 
per giorno o, addirittura, pasto per pasto, compresi i 
caffè al bar o gli stuzzichini a metà pomeriggio, le 
calorie, i grassi, le vitamine, il colesterolo ingeriti, e 
sapere se si sta dimagrendo, ingrassando o si è raggiunta 
una beata stabilità. In effetti è ben più di una dieta, è uno 
strumento per mantenersi in salute e in forma perfetta. 

Ma naturalmente non solo dieta. Chi è appassionato di 
grafica, vada subito a pag. 83. troverà un programma che 
applica i concetti di CAD/CAM all'Apple, ottenendo uno 
strumento per disegnare semiprofessionale. E poi: venti 
programmi di una linea sola, un'agenda telefonica con il 
Tre per' te, un fantastico gioco in alta risoluzione 
(Pompieri, pag. 65), una utility per stampare i listati "in 
bella vista", un timer Infine notizie su Macintosh, i suoi 
programmi e le sue applicazioni. 
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Quel torneo 
lo dirige Apple 

Nel numero di genna¬ 
io-febbraio 1985 di Appli¬ 
cando abbiamo pubblicato 
un divertente programma 
per giocare a bridge con 
l’Apple. Adesso ci giunge 
notizia che già da tre anni il 
Prof. Ing. Aldo Borzì di Pa¬ 
lermo, Direttore di Tornei 
della Federazione Italiana 
Bridge, ha messo a punto 
una serie di programmi per 
rendere più veloci e sicuri i 
calcoli e la gestione dei "mo¬ 
vimenti" nel corso dei Tor¬ 
nei di Bridge. 

L’ing. Aldo Borzì è presi¬ 
dente di ALBOR, un’Asso¬ 
ciazione di appassionati di 
bridge, scacchi e altre attivi¬ 
tà intellettuali che hanno co¬ 
me comune denominatore 
l’agonismo. Naturalmente 
Apple (un II europlus, in 
questo caso) è il migliore al¬ 
leato del Presidente di AL¬ 
BOR per tutto ciò che con¬ 
cerne gli aspetti tecnici e or¬ 
ganizzativi delle manifesta¬ 
zioni promosse da questa as¬ 
sociazione. 

Si dice che il Bridge sia il 
"gioco più giocato" nel mon¬ 
do dopo il calcio. Anche se 
la notizia non è confermata 
da nessuna fonte ufficiale, è 
certo che la diffusione di 
questo gioco è enorme, co¬ 
me conferma un episodio 
raccontato dal dottor Bar¬ 
bone, Presidente della Fe¬ 
derazione Italiana Bridge: 
"Nel corso di un Torneo in¬ 
ternazionale, il nostro cam¬ 
pionissimo Giorgio Bela- 
donna scartò un asso in base 
a un suo calcolo di gioco che 
poi non si rivelò esatto. Mesi 
dopo, in un aeroporto ame¬ 
ricano dove si era recata la 
Squadra Nazionale Italiana, 
un portabagagli si rifiutò de¬ 
cisamente di portare le vali¬ 
gie "a uno che scarta gli assi!" 

Il Bridge, in cui gli italiani 
hanno sempre avuto una so¬ 
lidissima tradizione a livello 
internazionale, è organizza¬ 
to come un vero e proprio 
sport con tanto di Federa¬ 
zione Italiana Bridge, classi¬ 
fiche individuali e a squadre 


e Campionati italiani di se¬ 
rie A,B,C e promozione, ol¬ 
tre alla famosa Squadra Na¬ 
zionale che ha dominato la 
scena mondiale per moltissi¬ 
mi anni. 

I Tornei di Bridge si svol¬ 
gono con un criterio molto 
semplice: tutte le coppie o le 
squadre giocano lo stesso 
numero di partite con la 
stessa composizione di car¬ 
te, e la comparazione dei ri¬ 
sultati viene poi valutata ai 
fini della classifica secondo 
un sistema di punteggio or¬ 
mai collaudatissimo. 

"I Tornei nei quali si ha 
maggior vantaggio con il cal¬ 
colo automatico sono quelli 
a coppie con il sistema Mit- 
chell" dice l’ing. Borzì "infat¬ 
ti l’assegnazione dei punteg¬ 
gi e l’elaborazione delle 
classifiche con i sistemi tra¬ 
dizionali comportavano 
tempi oscillanti tra le 6 e le 8 
ore di lavoro, con una certa 
percentuale di rischio di er¬ 
rore e le conseguenti conte- 
stazioni che costringevano a 
rivedere tutto! È per questo 
che i primi programmi che 
ho scritto per la direzione 
dei Tornei si chiamano 
"Bridge 1", "Bridge 2" e 
"Bridge 3": mi consentono di 
elaborare classifiche e pun¬ 
teggi per i tornei che si svol¬ 
gono rispettivamente in 1, 2 
o 3 turni di gara con un tem¬ 
po massimo di elaborazione 


che non arriva a 5 minuti di 
calcolo per 100 coppie par¬ 
tecipanti. Naturalmente ho 
fatto in modo di inserire an¬ 
che tutte le possibili varianti 
in tema di classifiche parziali 
e speciali che spesso sono 
previste nei Tornei più 'ric¬ 
chi’. Per i Tornei a squadre 
che si svolgono con il siste¬ 
ma Danese ho poi preparato 
un altro programma: il van¬ 
taggio in questo caso è leg¬ 
germente meno sensibile ma 
è sempre molto più comodo 
operare con Apple che ma¬ 
nualmente." 

L’ing. Borzì usa abitual¬ 
mente il computer per la sua 
professione elaborando i ne¬ 
cessari calcoli strutturali e 



L’Apple sormontato da alcu¬ 
ne coppe in palio in un recen¬ 
te Torneo svolto in Sicilia. 


statistici in modo automati¬ 
co; il software per il bridge è 
stato quindi una estensione 
naturale della sua familiari¬ 
tà con Apple alla sua accer¬ 
tata passione per il Bridge. 

"Uno dei più evidenti van¬ 
taggi dell’uso del computer 
nella direzione dei Tornei di 
Bridge è certamente dovuto 
all’immediata soddisfazione 
dei giocatori e degli sponsor 
alla fine delle mani di gioco" 
afferma ancora l’ing. Borzì 
"infatti la velocità del mio 
Apple mi permette di stilare 
le classifiche finali in un 
tempo veramente ridotto, e 
poiché il regolamento della 
Federazione Italiana Bridge 
dispone che le classifiche di¬ 
ventino definitive mezz’ora 
dopo la loro affissione, non 
solo i giocatori hanno la sod¬ 
disfazione di sapere imme¬ 
diatamente il risultato delle 
loro 'fatiche agonistiche’ ma 
si può anche procedere alla 
premiazione entro pochissi¬ 
mo tempo, con grande sod¬ 
disfazione degli sponsor che 
possono quindi contare sulla 
quasi totalità dei parteci¬ 
panti al Torneo anche nella 
cerimonia di attribuzione 
dei premi in palio. Oggi gli 
sponsor sono praticamente 
indispensabili per i Tornei 
più importanti ed è anche 
grazie all’uso del computer 
se le manifetazioni agonisti¬ 
che di Bridge sono oggi ben 
più numerose e 'dotate’ di 
quanto non fossero solo po¬ 
chi anni addietro." 

Il software per la direzio¬ 
ne dei Tornei di Bridge è re¬ 
centemente assurto anche 
agli onori della cronaca nera 
siciliana, come ci racconta lo 
stesso ing. Borzì: "È stato in 
occasione del Torneo Na¬ 
zionale di Cefalù dello scor¬ 
so anno. In uno dei momenti 
in cui era richiesta la mia 
presenza in una delle sale 
dove si svolgeva la gar^, 
qualcuno ha tolto dal drive il 
disco con il mio programma. 
Per fortuna ho sempre una 
copia dei dischi nel caso che 
uno vada danneggiato acci¬ 
dentalmente... Un episodio 
spiacevole, sono stato co¬ 
stretto a farne denuncia ai 
Carabinieri." 
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Sistema Polaroid Palette 
per diapositive immediate 35 mm. 

Il sistema Polaroid Palette è stato con 
cepito come unità periferica per i più diffu¬ 
si personal computers. 

Istogrammi, grafici, ed altri tipi di eia 
borati possono essere facilmente riprodot¬ 
ti nelle tonalità più sature e brillanti, gra 
zie ad una scala cromatica di ben 72 colori. 

Il tutto in tempo reale, operando sia 
con schermo monocromo che a colori. 

Il sistema Polaroid Palette utilizza, in 
fatti, il segnale di uscita del computer stes¬ 


so e consente elaborazioni fotografiche a 
colori sia su positivo (hard copy) che in 
diapositiva Polaroid 35 mm. 

11 sistema minimizza quindi la retinatu 
ra dello schermo, peruna riproduzione fo¬ 
tografica accurata e definita. 

Il sistema Polaroid Palette è uno stru¬ 
mento di lavoro per operatori di marke 
ting, per ricercatori, per tutti coloro che 
necessitano di un adeguato supporto visi¬ 
vo alle loro presentazioni. 

Chiedete una dimostrazione al vo¬ 
stro rivenditore di fiducia e ai Distri¬ 
butori Specializzati Polaroid (indiriz¬ 
zi sulle Pagine Gialle). 


Per ulteriori informazioni spedite questo 
tagliando a: POLAROID (Italia) S.p.A. 
Divisione Prodotti Professionali 
Via Piave, 11 Tel. 0332/470031 
21051 ARCISATE (Varese) 

Mittente_ 


Indirizzo _ 
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Polaroid 


‘Polaroid" è un marchio registrato della Polaroid Corporation. Cambridge. Mass., USA. Polaroid 1985. 
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La piastra per Macintosh da 512 Kb che può sostituire quella 
da 128 Kb. 


Memoria offresi 

Come previsto, la AP¬ 
PLE ha messo in vendita 
una piastra completa con la 
memoria di 512 Kb che può 
sostituire in poco meno di 
mezz’ora la piastra da 
128Kb contenuta nei primi 
Mac. Il prezzo di listino è di 
2.000.000 + IVA. La Apple 
però rimborsa 500.000 lire 
se le si rende la piastra da 
128 Kb. In definitiva il Ma¬ 
cintosh viene fornito sia nel¬ 
la versione a 128 Kb sia in 
quella da 512 Kbyte, con la 
differenza di circa un milio¬ 
ne e mezzo. 

La possibilità di avere 512 
Kbyte di memoria aumenta 
di gran lunga le già ottime 
prestazioni del Macintosh; a 
livello di sistema operativo, 
risultano più veloci ad esem¬ 
pio la copiatura di un disco 
che, fatta con un solo driver, 
richiede solo tre passate in¬ 
vece di dieci. Gli stessi pro¬ 
grammi applicativi MacWri- 
te e MacPoint possono ope¬ 
rare più velocemente perché 
occorre minor spazio su di¬ 
sco per appoggiare tempo¬ 
raneamente i file di servizio, 
e i diversi accessori di dise¬ 
gno lavorano istantanea- 
mente essendo tutti caricati 
in memoria. Si può quindi 
lavorare anche con meno di 
30 Kb disponibili su disco, 
cosa che non era possibile 
invece con la memoria di 
128K: si era costretti a to¬ 
gliere qualche file dal disco 
se si voleva stampare un di¬ 
segno. Chi vuole scrivere 
programmi con il Microsoft 
Basic avrà a disposizione, 
una volta caricato il Basic, 
390 Kb invece di 16. Per la 
sostituzione della piastra oc¬ 
corre rivolgersi ai Rivendi¬ 
tori autorizzati APPLE. 

Un’altra interessante so¬ 
luzione per aumentare la 
memoria di Mac da 128 a 
512Kb la propone una gio¬ 
vane e dinamica azienda di 
Montorfano (Como), la 
Southern European Com¬ 
puter che, nonostante la 
presenza sul mercato del¬ 
l’Apple da poco più di un 
anno, ha al suo attivo l’im¬ 
portazione e la distribuzione 


in Italia di moltissimi pac¬ 
chetti di software per Apple 
// e Macintosh. La SEC in¬ 
fatti propone un kit di tra¬ 
sformazione che costa appe¬ 
na £1.200.000. Per informa¬ 
zioni e maggiori ragguagli, 
potete scrivere (richiedendo 
gratuitamente il catalogo) a 
Southern European Com¬ 
puter, Via Molino 2, 22030 
Montorfano (CO), oppure 
telefonare allo 031/200621. 

20 Mega per Mac 

Una memoria di massa da 
20 Mega? E in arrivo per 
Macintosh, prodotta dalla 
Apple. Sarà disponibile in 
Italia a partire da settem¬ 
bre-ottobre, e aumenterà 
enormemente le possibilità 
di utilizzo professionale del 
piccolo grande computer di 
casa Apple, mettendolo in 
grado di funzionare egregia¬ 
mente anche sui più com¬ 
plessi programmi gestionali 
che richiedono grandi capa¬ 
cità di memoria. Il prezzo? 
Non è ancora stato comuni¬ 
cato, ma dovrebbe essere 
molto ragionevole. 


Un’occasione 
da non perdere 

La Apple Computer ha 
lanciato la nuova campagna 
"Prova su strada Macintosh" 
a partire dal 15 aprile 1985. 
Si tratta di un’iniziativa 
espressamente studiata per i 
professionisti e i manager 
che vogliono "avvicinarsi" al 
potente Mac per provare 
con mano, con o senza l’assi¬ 
stenza del rivenditore, le 
possibilità e la facilità d’uso 
di Mac. 

L’iniziativa è principal¬ 
mente rivolta alla fascia pro¬ 
fessionale d’utenza che vuo¬ 
le avere in prima persona le 
risposte alle classiche do¬ 
mande sui computer "cosa 
può fare per il mio lavoro il 
personal computer?", oppu¬ 
re "esiste un’applicazione 
che può risolvere il mio pro¬ 
blema specifico?". 

Per "avere le chiavi" di 
Mac basta presentarsi in uno 
dei tanti negozi abilitati alla 
prova. Fatto questo, un Mac 
con opportuni programmi di 
prova, corredati da un com¬ 
mento su cassetta che spiega 


le principali caratteristiche 
di Mac, vengono messi a di¬ 
sposizione degli interessati. 

Terminato questo primo 
"ciclo" di approccio, l’utente 
può utilizzare uno dei tanti 
programmi della biblioteca 
per ricercare i possibili cam¬ 
pi di utilizzo nella sua attivi¬ 
tà professionale. In qualsisi 
momento, naturalmente, si 
può richiedere l’intervento 
di una persona esperta che 
interverrà con spiegazioni, 
suggerimenti e dimostrazio¬ 
ni per facilitare al massimo 
la "familiarizzazione" con il 
simpatico Mac. 

Un mega ma 
a floppy ridotti 

L’utilizzo sempre più 
massiccio di programmi di 
word processing e la necessi¬ 
tà di immagazzinare infor¬ 
mazioni con data base molto 
capienti è uno degli orienta¬ 
menti più evidenti dell’uten¬ 
za di personal computer. Vi¬ 
sta la grande diffusione degli 
Apple II e Ile, la Datatech 
S.p.A. di Milano (Centro 
Direzionale Milanofiori, 
Strada 7 — Palazzo TI — 
20089 ROZZANO -MI- 
tel. 02/8243382) propone 
oggi due modelli diversi di 
unità a floppy con capacità 
di memoria decisamente più 
elevate di quelle standard. 

Nella versione con singo¬ 
lo drive da 640Kb o in una 
versione con doppio drive, 
queste unità dischi vengono 
offerte con una scheda di in¬ 
terfaccia che consente la lo¬ 
ro utilizzazione per qualsiasi 
programma scritto in DOS 
3.3, DIVERSI DOS, PA¬ 
SCAL 1.1 e 1.2, PRODOS e 
CP/M2.2 (vers. 56Kb). 

Nella versione con singo¬ 
lo drive l’alimentazione è 
delegata all’Apple, mentre 
nella versione con doppio 
drive l’alimentazione sepa¬ 
rata consente di non carica¬ 
re eccesivamente l’alimen¬ 
tatore dell’Apple. 

L’unità con singolo drive 
da 640 Kb formattati 
(SF-AP 960), che è "Stan¬ 
dard Shugart" ed è quindi 
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I nuovi drive della Datatech con la scheda d’interfaccia. A sinistra il drive singolo da 640 Kb, a 
destra il doppio drive da 1,28 Mb con alimentazione autonoma. 


compatibile ad una vasta 
gamma di macchine, si ottie¬ 
ne una configurazione con il 
drive 1 originale Apple e il 
drive 2 da 640 Kb inserito 
nello slot 6 in sostituzione 
del normale controller. Nel¬ 
la configurazione più "ca¬ 
piente" a doppio drive 
SF-AP 961 si hanno invece 
due drive da 640 Kb per un 
totale di 1,28 Mb. 

La scheda di interfaccia 
AFDC2 provvede all’ali¬ 
mentazione della versione 
con singolo drive mentre, 
come accennato, l’alimenta¬ 
zione della versione a dop¬ 
pio drive è incorporata nell' 
SF-AP 961. 

Ma non è tutto, sono in 
allestimento due configura¬ 
zioni con dischi da 3" 1/2 
(SF-AP 962 e SF-AP 963) 
con le stesse capacità di me¬ 
moria di 640 Kb formattati 
ma con il pregio di un forma¬ 
to ridotto dei dischetti. 

Il kit di installazione, di 
facile montaggio anche da 
parte di non esperti, com¬ 
prende inoltre le utilites di 
FORMATTAZIONE e 
COPIA per i dischetti da 
640 Kb relative a tutti i siste¬ 
mi operativi che abbiamo ci¬ 
tato prima. 

La configurazione da un 
drive costa £ 770.000, men¬ 
tre la versione con doppio 
drive £ 1.300.000, entrambe 
comprese di scheda di inter¬ 
faccia (prezzi IVA esclusa). 
È disponibile anche la singo¬ 
la scheda d’interfaccia per 
accoppiare l’Apple a qual¬ 
siasi drive "Standard Shu- 


gart" (prezzo £ 340.000 IVA 
esclusa). 

Per informazioni ci si può 
rivolgere alla sede della Da¬ 
tatech a Rozzano o alla filia- 
le di Torino (tei. 
011/850904), alla Nike di 
Bologna (tei. 051/223714 — 
271018) o alla Hy-Tek di 
Roma (tei. 06/7970559 - 
6133025). 

Apple User Club 

E di recentissima costitu¬ 
zione l’Apple User Club 
che, come indica lo stesso 
nome, vuole promuovere e 
incentivare i contatti tra i 
proprietari di Apple met¬ 
tendo a loro disposizione, 


presso la sede di Viale Jen- 
ner a Milano, computer, 
schede, stampanti e una va¬ 
sta biblioteca di programmi 
con relativi manuali. Si trat¬ 
ta quindi del luogo ideale 
dove i proprietari di Apple 
possono ritrovarsi per discu¬ 
tere e risolvere i loro proble¬ 
mi specifici. Un’altra delle 
inziative allettanti che pro¬ 
pone l’Apple User Club è 
una convenzione con una se¬ 
rie di qualificati negozi per 
avere schede, software, ac¬ 
cessori e quanto altro possa 
riguardare i computer Ap¬ 
ple, a prezzi davvero inte¬ 
ressanti. Molto presto inol¬ 
tre partirà anche l’iniziativa 
più allettante: una banca da¬ 
ti a cui collegarsi tramite 
modem. 

Per ulteriori informazioni 
scrivere o recarsi il lunedì e 
il mercoledì, dalle 20.30 alle 
23.00, all’Apple User Club, 
Viale Jenner 64, 20159 
Milano. 

Una prece 
per Lisa 

La prematura scomparsa 
dal mercato della giovanissi¬ 
ma Lisa lascia afflitti e scon¬ 
solati i suoi estimatori e tutti 
quanti contavano in un suo 
futuro. Le software—house 
che su di lei avevano investi¬ 


to sono un po’ più che addo¬ 
lorate. Macintosh però, fi¬ 
glio di Lisa, promette benis¬ 
simo. La pur breve vita di 
Lisa è valsa a qualcosa se è 
servita a mettere al mondo 
un simile pargolo. Una 
prece. 

La J. Soft 
distribuisce 
i programmi 
Lotus 

La famosa società ameri¬ 
cana Lotus, autrice tra l’al¬ 
tro dei programmi 1—2—3 e 
Simphony e del nuovo pro¬ 
gramma Jazz per Macin¬ 
tosh, ha annunciato recente¬ 
mente che la J. Soft di Mila¬ 
no curerà la diffusione sul 
mercato italiano dei suoi 
programmi. L’annuncio è 
stato fatto da David Me Do¬ 
nald, responsabile per la di¬ 
stribuzione in Europa dei 
prodotti della Lotus Deve- 
lopment European Corpo¬ 
ration, aggiungendo che il 
mercato italiano è conside¬ 
rato uno dei più promettenti 
di tutta l’area europea. 

Il programma Jazz per 
Macintosh da aprile è già di¬ 
stribuito in Italia dalla J. 
Soft e i primi dati di diffusio¬ 
ne sono stati definiti "molto 
interessanti". 


Il simbolo del neonato Apple 
User Club. 
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Spreadsheet 
nella melina 

Nel menù delle risorse 
Macintosh, quello nascosto 
nella melina nera, che con¬ 
tiene anche la calcolatrice, il 
puzzle, eccetera, si può na¬ 
scondere anche uno spread¬ 
sheet? Sì, con Clic—on, un 
programma fatto proprio 
apposta, che consente quin¬ 
di di tenere un utilissimo fo¬ 
glio elettronico sempre a 
portata di mano anche 
quando si è in tutt’altre fac¬ 
cende affaccendati. 

Laser Lobot 

Lobot 1 è un piccolo Ro¬ 
bot a tre ruote che può muo¬ 
versi in tutte le direzioni ed è 
in grado di parlare o, me¬ 
glio, ripetere delle parole e 
frasi immesse da tastiera. Si 
compone di quattro parti: 

1) UNITA’ MOBILE, 
che contiene le parte logica 
ed elettrica per il suo funzio¬ 
namento. In uno dei lati più 
lunghi c’è la possibilità di in¬ 
serire (in due fori apposita¬ 
mente predisposti) un pen¬ 
narello che può così traccia¬ 
re dei bei disegni durante i 
movimenti del robot. 

2) UNITA’ TRASMIT¬ 
TENTE, che permette il 
collegamento con il robot 
tramite la trasmissione dei 
comandi dal computer al ro¬ 
bot stesso a mezzo di raggi 
infrarossi. 

3) SCHEDA di interfac¬ 
ciamento con l’Apple che 
contiene i circuiti logici per 
la conversione dei segnali 
digitali, forniti dal compu¬ 
ter, in segnali analogici ca¬ 
paci di modulare i led a raggi 
infrarossi per il comando del 
robot. 

4) DISCHETTO con il 
programma applicativo per 
il funzionamento sia come 
sintetizzatore vocale che co¬ 
me robot disegnatore. Con¬ 
tiene anche un programma 
dimostrativo in Basic per il 
disegno di un fiore. 

Il Lobot 1 viene fornito 
"pronto all’uso". Le uniche 
operazioni da eseguire si ri¬ 


ducono aH’inserimento del¬ 
la scheda nello Slot 2 del¬ 
l’Apple, al collegamento 
delle batterie per l’alimenta¬ 
zione della parte logica e dei 
due motori del robot e al fis¬ 
saggio della testina trasmit¬ 
tente sul suo supporto inse¬ 
rito nella confezione. 

Accompagna il tutto un 
completo manuale esplicati¬ 
vo (in lingua inglese) com¬ 
prendente esempi di pro¬ 
grammi sia per usare il robot 
come speaker sia come abile 
disegnatore; sono riportati 
anche gli schemi elettrici dei 
vari circuiti inseriti nel 
robot. 

Il Laser Lobot 1 è prodot¬ 
to dalla LASER COMPU¬ 
TER LTD e viene distribui¬ 
to in Italia dalla PERTEL, 
via Ormea 99 — Torino, al 
prezzo di lire 760.000 + 
IVA. 

Voci da 800K 

La notizia è incontrollata 
e incontrollabile, ma sem¬ 
bra prorio che siano in arri¬ 
vo i drive da 800K, su di¬ 
schetti da 3 pollici e mezzo, 
per Macintosh e, udite udi¬ 
te, anche per la serie Apple 
//. Alla Apple non confer¬ 
mano. Ma neppure smenti¬ 
scono. 


Archimede 
in concorso 

Il Centro Archimede, 
un’associazione culturale 
senza scopi di lucro fondata 
dal Gruppo Fininvest e dal- 
l’Italturist, con sede scienti¬ 
fica a Ustica, ha indetto il 
concorso "Forse c’è un genio 
alla tastiera del tuo personal 
computer". Possono parteci¬ 
pare privati e società con 
programmi inediti realizzati 
in Italia per personal e home 
computer. 

Chi vuole partecipare al 
concorso deve far pervenire 
entro e non oltre il 
10/6/1985, in busta sigillata 
indirizzata alla segreteria di 
"Archimede Informatic", 
Palazzo Donatello, Milano 
2 (Segrate), i programmi su 
supporto magnetico (floppy 
o nastro) e la relativa docu¬ 
mentazione di installazione 
e uso. La documentazione 
sul programma deve poi es¬ 
sere completata da una 
scheda contenente i dati 
anagrafici degli autori (no¬ 
me, cognome, età), la loro 
professione, il recapito di 
uno degli autori, il nome del 
programma e il computer 
(con relativa specifica della 
configurazione richiesta) 


utilizzato. Inoltre bisogna 
specificare chiaramente il 
linguaggio di programma¬ 
zione usato, il sistema ope¬ 
rativo, la dimensione del co¬ 
dice, il supporto su cui il 
programma è presentato e 
un breve elenco della docu¬ 
mentazione allegata con una 
sintetica descrizione delle 
principali caratteristiche del 
programma. 

Le categorie ammesse al 
concorso sono 12: ricreazio¬ 
ne (giochi, intrattenimen¬ 
to), arte (musica, grafica, 
immagini), sport, scienze, 
ambiente e turismo, didatti¬ 
ca, tecnica, salute, servizi, 
casa, ufficio, azienda. 

Ciascun partecipante non 
può presentare più di tre 
programmi. E garantita 
inoltre la restituzione del 
materiale originario, e la se¬ 
greteria del concorso si im¬ 
pegna a non trasferire su al¬ 
cun supporto i programmi 
concorrenti. 

Dopo una preselezione 
effettuata secondo criteri 
messi a punto dall’Istituto di 
Cibernetica dell’Università 
degli Studi di Milano, la fase 
finale del concorso si svolge¬ 
rà in occasione del Festival 
del Software di Ustica (dal 
29 giugno al 6 luglio), a cui 
gli autori potranno parteci- 
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pare con una forte riduzione 
del costo di iscrizione. Ai 
vincitori, primo, secondo e 
terzo classificato in ogni ca¬ 
tegoria, andranno rispetti¬ 
vamente un floppy d’oro, 
uno d’argento e uno di bron¬ 
zo, mentre di tutti i pro¬ 
grammi in regola con le nor¬ 
me del concorso verrà pub¬ 
blicata, in un apposito cata¬ 
logo della manifestazione, 
la descrizione contenuta 
nella scheda di iscrizione. 

Per ulteriori informazioni 
rivolgersi alla Segreteria di 
Archimede Informatic in 
Progress, Palazzo Donatello, 
Milano 2 —20090 Segrate 
(MI). Tel. 02/21623488/3336. 

Operazione 

Quartz 

Tre confezioni da dieci di¬ 
skette da 5" 1/4 doppia den¬ 
sità con l’omaggio di Un oro¬ 
logio da tavolo al quarzo? 

E l’offerta speciale che 
propone la Key—Data per i 
mesi di maggio e giugno nel¬ 
l’ambito della sua campagna 
promozionale per il lancio 
sul mercato della linea di 
prodotti Key—Data per l’in¬ 
formatica. 

Distributore per l’Italia: 
Gierre Informatica, via Um¬ 
bria 36, 42100 Reggio 
Emilia. 

Un oscar 
per la chimica 

Non si tratta di una inde¬ 
bita ingerenza del mondo 
dello spettacolo nel mondo 
scientifico ma del riconosci¬ 
mento che anche quest’anno 
il Gruppo 3M Italia ha otte¬ 
nuto quale azienda chimica 
più ammirata dal mondo 
manageriale italiano. Il rico¬ 
noscimento scaturisce dalla 
seconda indagine Hill & 
Knowlton sull’immagine 
delle maggiori aziende ita¬ 
liane, svolta in collaborazio¬ 
ne con la rivista Espansione , 
compiuta inviando un que¬ 
stionario a oltre 2000 mana¬ 
ger, in rappresentanza di 
215 grandi imprese con una 
cinquantina di consulenti, 


esperti e docenti particolar¬ 
mente qualificati che hanno 
risposto valutando le azien¬ 
de su temi generali, finan¬ 
ziari e produttivi assegnati 
sui questionari. 

Due nuove 

stampanti 

Epson 

All’ultima edizione di Ro- 
maufficio ’85 la Segi, distri¬ 
butrice dei prodotti Epson, 
ha presentato le nuovissime 
stampanti LX —80 e 
SQ-2000. La prima è una 
stampante professionale ad 
aghi che può lavorare in mo¬ 
do autonomo grazie a uno 
speciale buffer interno di 
1024 byte che consente di 
continuare a lavorare sulla 
macchina durante le fasi di 
stampa. Dotata di oltre 50 
codici di controllo software, 
selezionabili dal pannello 
frontale, per la giustezza 
delTimpaginato, l’interli¬ 
nea, la tabulazione e il salto 
della pagina, la LX —80 
stampa 100 caratteri al se¬ 
condo su 80 colonne in mo¬ 
do bidirezionale con un set 
di 96 caratteri standard, cui 
si aggiungono 32 caratteri 
per internazionali, 32 per la 
grafica e 32 "Near Letter 
Quality" per la creazione di 
caratteri personalizzati. 

La LQ—2000 è invece una 


De e PSI fanno cadere il progetto di Legge PRI 

La ripresa dell'occupazione 
e crescita della produttività 
passano attraverso 
il terziario avanzato 

■Ripresenteremo il progetto il 14 maggio. 
Questo è il nostro impegno" 
di LUCIANO FOfiCELUNI 


stampante a getto d’inchio¬ 
stro con una ottima qualità 
di stampa grazie alla testina 
realizzata con una meccani¬ 
ca ad altissima precisione. 
24 micro—ugelli, disposti su 
due file vericali, consentono 
la creazione di caratteri vir¬ 
tualmente perfetti, con lo 
stesso standard di quelli dei 
giornali. La velocità di stam¬ 
pa è di 105 caratteri al secon¬ 
do, superiore a quella delle 
stampanti a margherita, e 
può arrivare fino a 176 ca¬ 
ratteri/s nella stampa di ta¬ 
bulati o prime bozze di do¬ 
cumenti. Le interfacce uti¬ 
lizzate sono le seriali 
RS-232C e IEEE-488 e 
quella parallela a 8 bit. 



In alto la stampante ad aghi 
LX-80. 

In basso la SQ-2000 con 
dimensioni d’ingombro 
165 x 595 x 383 mm e un peso 
di 18 Kg. 



L'italia tra Europa e Mediterraneo 

La Lombardia dovrà essere 
la cerniera portante 
dell'espansione economica 

di FABIO SEMENZA 


Il prezzo non è ancora sta¬ 
to definito. Distributore 
esclusivo dei prodotti Epson 
è la Segi, via Timavo 12, 
20124 Milano, telefono 
02/6709136. 

Macintosh 
per le elezioni 

C’è chi usa Macintosh per 
il proprio lavoro e chi invece 
lo usa principalmente per la 
sua potenza di calcolo. C’è 
poi qualcuno che il simpati¬ 
co Mac lo usa per farsi eleg¬ 
gere. E il caso del PRI che 
ha trovato conveniente 
commissionare alla Arcadia 
S.p.A. un settimanale di in¬ 
formazione politico cultura¬ 
le, chiamato Redazione, che 
ha la particolarità di essere 
fatto interamente con Ma¬ 
cintosh. La grafica, rimpa¬ 
ginazione, la composizione 
e tutto il resto, con l’ovvia 
esclusione delle fotografie 
(perché ancora non sono do¬ 
tati del Magic e del Magic- 
Vision che abbiamo pesen- 
tato nel numero scorso di 
Applicando) che vengono 
"lavorate" a parte. 

Al momento in cui scri¬ 
viamo non sappiamo come 
andrà questo turno elettora¬ 
le, ma è certo che se il PRI 
avrà un buon riscontro elet¬ 
torale della sua campagna 
potremo certo dire che è an¬ 
che merito di Mac! In termi¬ 
ni più seri si può portare Re¬ 
dazione come esempio della 
grande versatilità di Macin¬ 
tosh, le cui capacità grafiche 
permettono persino di pre¬ 
parare con la massima facili¬ 
tà un giornale dalla grafica 
moderna e piacevole. 


Un foglio e la testata di 
“Fledazione”, periodico 
realizzato interamente con 
Macintosh sfruttando le sue 
notevoli capacità nel settore 
grafico e di composizione di 
testi. 
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Soprattutto 
per ingegneri 

Si svolgerà a Venezia, alla 
Scuola Grande di San Gio¬ 
vanni, il 14, 15 e 16 giugno, 
la seconda edizione del 
Computec, la manifestazio¬ 
ne esclusiva dedicata ai pro¬ 
dotti hardware e software 
destinati alle applicazioni 
tecnico scientifiche per l’in¬ 
gegneria. La mostra si pro¬ 
pone di aggiornare gli ope¬ 
ratori sulle novità del mer¬ 
cato in campo di hardware e 
software ma anche di fornire 
notizie sugli attuali orienta¬ 
menti normativi nel nostro 
Paese sulle modalità di pre¬ 
sentazione delle relazioni di 
calcolo nei progetti realizza¬ 
ti con l’ausilio dell’elabora¬ 
tore. 

Particolarmente nutrito il 
programma delle conferen¬ 
ze e tavole rotonde collate¬ 
rali alla manifestazione. 
Parleranno i professori O. 
De Donato e A. Franchi del 
Politecnico di Milano su 
"Calcolo delle strutture in 
zona sismica: metodi, nor¬ 
mativa e implementazione 
di programmi su microcom¬ 
puter". Il Prof. F. Cafarella 
dell’Università di Pisa trat¬ 
terà invece i "Problemi ge¬ 
nerali sul calcolo strutturale 
condotto su elaboratori: la 
proposta normativa CNR". 
Il Prof. B. Schrefler dell’u¬ 
niversità di Padova si occu¬ 
perà invece dei "Criteri di 
controllo dei risultati di cal¬ 
colo strutturale svolti per via 
automatica", mentre al Prof. 
S. Odorizzi dell’Università 
di Padova è affidata una "A- 
nalisi comparativa dei criteri 
di valutazione dei prodotti 
di software commerciali nel 
settore del calcolo struttu¬ 
rale". 

I settori di particolare in¬ 
teresse del Computec sono 
nelle applicazioni CAD 
/CAM, nell’analisi struttu¬ 
rale, nei modelli numerici 
nella meccanica, nell’inge¬ 
gneria idraulica, civile, ma¬ 
rina e aerospaziale. Inoltre 
sono esposti strumenti di 
progetto e controllo per le 
attività di ingegneria, siste¬ 


mi di gestione automatica di 
piani di costo industrale e 
per la pianificazione e con¬ 
trollo della produzione oltre 
che, naturalmente, per i 
controlli di qualità. 

Per informazioni e ritiro 
degli inviti, rivolgersi a HSH 
— Hardware Software Hou¬ 
se, via Falloppio 39, 35100 
Padova. Telefono 
049/663888 - 654450 - 
44200. 


Per imparare 
a disegnare 

Il computer è certamente 
uno strumento sulla cui ver¬ 
satilità non si finisce mai di 
imparare e su cui l’ingegno 
umano può lavorare indefi¬ 
nitamente per creare sem¬ 
pre nuove applicazioni del 
calcolo automatico. La più 
diffusa categoria di informa¬ 
zioni "trattate" con i compu¬ 
ter è certamente costituita 
oggi dai numeri e dai testi. 
Ma le possibilità dei versati¬ 
lissimi calcolatori non si fer¬ 
mano certamente qui: meno 
conosciute e meno applicate 
sono ancora le potenzialità 
del calcolo elettronico delle 
informazioni grafiche. 

Disegni, grafici e immagi¬ 
ni varie possono essere ela¬ 
borate dai computer con tra¬ 
sformazioni di grande aiuto 
in vasti settori professionali 
con interessanti sviluppi so¬ 
prattutto nel settore cine¬ 
matografico, in quello pub¬ 
blicitario e nella neonata 
computer—art. 

Contrariamente ai testi e 
ai numeri, le immagini ven¬ 
gono trattate dal computer 
in modo radicalmente diver¬ 
so dai sistemi tradizionali, 
dato che debbono essere 
scomposte in unità grafiche 
che poi possono essere com¬ 
poste a piacere con una 
grandissima varietà di fun¬ 
zioni ed effetti. 

Per avvicinarsi a questo 
affascinante mondo della 
grafica computerizzata è 
uscito un nuovo libro: Corso 
di grafica con il computer, a 
cura di Daniele Marini, 
Gruppo Editoriale Fabbri. 



Si tratta di un volume che 
affronta l’argomento da tut¬ 
ti i punti di vista illustrando, 
con belle figure e testi esau¬ 
rienti, non solo "cosa" si può 
fare con il computer nel 
campo della grafica, ma an¬ 
che spiegando in modo sem¬ 
plice ed esauriente "come" 
realizzare gli effetti grafici 
principali. La trattazione 
degli argomenti spiega anzi¬ 
tutto le basi su cui si fondano 
i processi di elaborazione 
delle immagini in un compu¬ 
ter e, con facili esempi e 
qualche listato di prova per i 
modelli più diffusi, accom¬ 
pagna il lettore fino alle ap¬ 
plicazioni più professionali e 
avanzate. 

Il linguaggio di program¬ 
mazione è il Basic, strumen¬ 
to ormai familiare a molti e 
soprattutto versatile e po¬ 
tente anche per le applica¬ 
zioni grafiche. La parte ma¬ 
tematica sui cui si fondano 
tutte le routine di calcolo è 
invece veramente ridotta al 
minimo indispensabile, in 
modo che il lettore non sia 
costretto a impegnarsi nella 
comprensione di formule 
che possono non essergli fa¬ 
miliari. Ne risulta una facili¬ 
tà di lettura che rende la ma¬ 
teria piacevole e interessan¬ 
te rimandando a una speri¬ 
mentazione sulla tastiera lo 
sviluppo di alcuni dei temi 
trattati. 

Un capitolo dell’opera è 
dedicato alla creazione di 
grafici e tabelle grafiche di 
cui oggi si fa sempre più uso 
in campo professionale per 
"porgere" dati che debbono 


essere valutati nel loro com¬ 
plesso, prima di una analisi 
approfondita dei singoli 
valori. 

Un Ile 

fatto di carta 

"Il personal computer Ap¬ 
ple Ile" è il titolo invitante 
del libro di Danny Good¬ 
man edito da Supernova. 
Esplicativo è il sottotitolo 
che specifica Che cosa è , A 
che cosa serve. 

Si tratta di un manuale de¬ 
stinato a coloro che posseg¬ 
gono un Ile e che desiderano 
ampliare la propria capacità 
di sfruttarlo al meglio. L’in¬ 
troduzione è destinata ai 
neofiti, mentre il resto dei 
capitoli affronta tutti gli 
aspetti della macchina e del¬ 
le sue vaste possibilità. La 
seconda parte del libro è de¬ 
stinata all’utilizzazione della 
macchina a partire dall’e¬ 
norme biblioteca di pro¬ 
grammi disponibili, mentre 
proprio l’ultimo capitolo in¬ 
troduce gli elementi essen¬ 
ziali della programmazione. 

Utile, in coda, un comple¬ 
to elenco di rivenditori e ne¬ 
gozianti a cui rivolgersi in 
caso di problemi o per sem¬ 
plici spiegazioni, mentre in 
altre tre appendici sono 
elencate sinteticamente le 
caratteristiche principali del 
sistema e delle sue perife¬ 
riche. 

Distribuito nelle princi¬ 
pali librerie, costa 10.000 
lire. 
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sul tuo personal 


Da oggi puoi collegare il tuo personal a Pagine Gialle 
Elettroniche. Un servizio nuovo ed unico, realizzato da 
SEAT e SARIN, che trasforma il tuo personal in un grande li¬ 
bro elettronico tutto da consultare. Con semplici comandi in 
lingua italiana ti permette di avere, sul tuo personal compu- 
tered in tempo reale, informazioni tecnico-commerciali su 
oltre 800.000 aziende, selezionandole da una banca dati 
continuamente arricchita. Con Pagine Gialle Elettroniche 
scegli così, su tutto il mercato, le offerte relative ai prodotti e 
ai servizi che più servono alla tua azienda. Una perfetta inte¬ 
grazione tra un sistema capillare di raccolta dati e una tec¬ 
nologia all’avanguardia nel campo della telematica è alla 
base del servizio Pagine Gialle Elettroniche, oggi disponibi¬ 
le sui’più diffusi personal computer APPLE, IBM, OLIVETTI. 

Se vuoi saperne di più, il tuo concessionario sarà lieto di 
darti ulteriori informazioni. 



PAGINE GIALLE 
ELETTRONICHE 



SARIN/AP 


































GLI ALTRI DISCHETTI 

chiusi un punto qui, 
un punto là lasciano 
gran parte dei 
lembi aperti. 


Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 


Difatti sembrano tutti uguali finché non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 


DISCHETTI MEMOREX 

con lembi completamente 
saldati su tutta 
la superficie. 


Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. Questo può accadere con gli 
abituali sistemi di chiusura ma non con i 
dischetti Memorex che usa un 
procedimento esclusivo chiamato 
“Solid-Seam Bonding”. 

Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i 
dischi Memorex viene sigillato 
ermeticamente, rendendoli più rigidi e più 
resistenti. 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 
Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio t 1 = |, « I :V. 
- ricordate: non tutti i dischetti 
sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 


BURROUGHS-MEMOREX S.P.A. 
Divisione Computer Media 
Via Ciro Menotti, 14 Tel. 02/718551 
20129 MILANO MI 


è importante scegli 




A Burroughs Company 






















Concessionari 
Memorex 
Computer Media 

COMPUTER MEDIA 

10138 TORINO 

Via Susa, 37-Tel. 011/442261 - 
441027 

CO.FIN 

13051 BIELLA (VC) 

Via Repubblica, 33 - Tel. 015/30237 

GIORGIO BRUZZONE 

16152 GENOVA 
Via Col di Lana, 5/19 
Tel. 010/418719 

LOGOTEC 

20131 MILANO 

Via Pacini, 72 - Tel. 02/292677 - 
235539 

GASP! 

20131 MILANO 

Via Pecchio, 1 - Tel. 02/225806 

IL COMPUTER 

26041 CASALMAGGIORE (OR) 

Via Pozzi, 13 - Tel. 0375/41564 

DAL CIN ELIO 

31015 CONEGLIANO VENETO (TV) 
Vìa Manin, 59/A - Tel. 0438/63144 

R E S C O 

35027 NOVENTA PADOVANA(PD) 
Via Polati, 6 - Tel. 041 /415888 - 
926988 

CHI-BO 

43100 PARMA 

Borgo Antini, 3/G - Tel. 0521/207404 

TRADER LINE 

40133 BOLOGNA 

Via Battindarno, 12 - Tel. 051/380255 

IL CENTRO EDP 

47100 SAN LEONARDO - FORLÌ 
Via Armellino, 19 - Tel. 0543/728091 

INFORMATICA 

57100 LIVORNO 

Via Scali degli Olandesi, 54 

Tel. 0586/30022 

RIGHETTI 

06100 PERUGIA 

Via XX Settembre, 70 

Tel. 075/6100072 - 6100226 

PRISMA 

60127 ANCONA 

Corso Carlo Alberto, 12 

Tel. 071/899262 

MEMORY LINE 

00162 ROMA 

Via Nomentana, 224 

Tel. 06/8320040 - 8320434 

SYNCRON DATA 

84100 SALERNO 

Via Paolo de’ Granita, 14 

Tel. 089/241410 

BYTE'S HOUSE 

90144 PALERMO 

Via Vann’Antó, 28 - Tel. 091/291154 


è importante scegli 



A Burroughs Company 


Biblioteca Apple 

• Roberto Faenza, Computer- 
land, SugarCo 1985, pagg. 302, L. 

18.000. 


"È così importante il mondo de¬ 
gli elaboratori?" e "Ho bisogno di 
un computer?" sono due degli in¬ 
terrogativi che l’autore invita a 
porsi, prima di lasciarsi afferrare 
dalla febbre dell’elaboratore, anzi 
dalla "computermania". E l’autore, 
si badi bene, tutto è fuorché un 
nemico della tecnologia informati¬ 
ca, alla quale ha anzi attinto a pie¬ 
ne mani per procurarsi i dati neces¬ 
sari al suo lavoro e per la stesura 
del testo. Proprio dalla sua profon¬ 
da ed entusiastica conoscenza del 
mondo dell’informatica, infatti, 
viene la consapevolezza che non 
bisogna avvicinarvisi con frenetica 
leggerezza, condotti dalla moda e 
non dal bisogno. 

Il libro è la storia di un viaggio, 
appassionante, all’interno delle 






/ 


due realtà sociali che più sono se¬ 
gnate dallo sviluppo della scienza 
informatica e delle sue applicazio¬ 
ni: quella americana, con le sue fo¬ 
ghe produttivistiche, e quella giap¬ 
ponese, nella quale anche il lavoro 
con il personal computer diviene 
magico e mistico rituale. Soldi e 
computer, donne e computer, 
scuola e computer, sesso e compu¬ 
ter e così via: ecco l’America, terra 
del denaro, dei linguaggi, della psi¬ 
chiatria. Automi, prototipi e san¬ 
tuari: ecco il Giappone misterioso 
e formicolante, dove si può parlare 
a una nave e le fabbriche non han¬ 
no operai. 


PASCAL 


B 

Enrico Riktll 

■ 

LA FISICA COL 

BASIC 

■ 


■ 

Zanichelli 


• G. Castelli, F. De Cindio e C. 
Simone, Un programma in Pascal, 
Zanichelli 1985, pagg. 304, L. 
20 . 000 . 

Dal titolo sembra essere un ma¬ 
nuale per progettisti, ma è vero so¬ 
lo in parte: l’obiettivo del libro è 
quello di guidare il lettore alla 
comprensione dello sviluppo di un 
sistema informativo nel suo insie¬ 
me. Buoni programmatori sì, in so¬ 
stanza, ma anche lucidi conoscitori 
dell’architettura completa di un si¬ 
stema, anche se, magari, di ridotte 
dimensioni. 

Proprio per questo gli autori 
hanno scelto, tra i molti linguaggi, 
il pascal: il suo livello di astrazione 
permette infatti un approccio alla 
programmazione che evidenzia fa¬ 
si e livelli, problemi e soluzioni di 
un sistema software. Il tipo di ap¬ 
prendimento proposto è quello per 
analogia, travalicando quindi il so¬ 
lo studio della sintassi e della se¬ 
mantica del linguaggio; viene quin¬ 
di prospettato un problema "reale" 


(Reference), studiato in modo che 
la sua risoluzione faccia luce sulla 
gran parte dei problemi che ordi¬ 
nariamente ci si trova a dover fron¬ 
teggiare. L’impostazione e la riso¬ 
luzione del problema occupano la 
prima parte del libro, per il resto 
dedicato all’intero listato del pro¬ 
gramma in esame. 

• D. Galli, E. Ratti e P. F. Ber¬ 
nardi, La fisica col basic, Zanichelli 

1985, pagg. 360, L. 20.000. 

Tutti realizzati su misura per 
l’Apple //, i programmi raccolti in 
questo libro (sono una cinquantina 
in tutto) affrontano svariati proble¬ 
mi di fisica classica: meccanica, ter¬ 
modinamica, elettricità e magneti¬ 
smo. Ad accomunare i problemi 
analizzati è la laboriosità dei calcoli 
necessari per la loro risoluzione, 
che li rende piuttosto ostili benché 
non presentino particolari difficol¬ 
tà concettuali. La grande famiglia 
dei problemi che è invece agevole, 
e didatticamente utile, risolvere 
manualmente, viene al contrario 
ignorata da questo testo. 

Ogni problema viene introdotto 
da una breve esposizione teorica 
sui principi fisici che ne governano 
lo svolgimento e corredato, se uti¬ 
le, da accurate istruzioni per la rea¬ 
lizzazione di grafici. Destinato a in¬ 
segnanti e studenti delle scuole me¬ 
die superiori e dei primi anni del¬ 
l’università, il manuale dà per 
scontata la conoscenza del basic. 























Per molti è motivo di seria 
preoccupazione conservare la salute 
mediante una dieta bilanciata. 

Il programma Dieta Personalizzata è un sistema 
di database nutrizionale che l’utente può 
personalizzare a seconda della sua costituzione 
fisica e delle sue abitudini alimentari, come 
sussidio nella pianificazione della dieta a lunga o 
breve scadenza. 

DOS 3.3 'fili 1 
ProDOS 

APPLE //e +III 
APPLE >/c +111 

In forma 
con Apple 


S i sa da molti anni che il peso di 
una persona dipende in gran par¬ 
te dalla quantità di cibo consumata e 
dall’intensità dell’attività fisica. La 
maggior parte dei piani di controllo 
del peso si basa quindi su un’attenta 
limitazione del numero di calorie con¬ 
sumato. 

Abbiamo in genere a disposizione 
un enorme numero di alimenti, che 
variano molto nella quantità di calorie 
e di elementi nutritivi essenziali. Per 
quanto le esigenze individuali di ener¬ 
gia e di alimentazione possano essere 
calcolate con discreta precisione, il 
calcolo quotidiano si è rivelato molto 
difficile. Di conseguenza gli schemi di 
controllo del peso vengono spesso 
semplificati classificando i cibi in alcu¬ 
ni gruppi e poi specificando il numero 
di porzioni che una persona può con¬ 
sumare per raggiungere il suo peso 
ideale. 

Le maggiori difficoltà di chi deve 
intraprendere una dieta sono dovute 
al fatto che le normali tabelle dieteti¬ 
che non prendono in considerazione i 
piatti più elaborati. Infatti è davvero 
improbabile che chi redige queste ta¬ 
belle possa conoscere la vera composi¬ 
zione dei piatti più elaborati dato che, 
solitamente, ognuno apporta delle va¬ 
riazioni personali alla ricetta di base 
che può essere stampata su un buon 
libro di cucina. E quindi inevitabile 
che le diete tradizionali diventino ben 
presto una sorta di sofisticato suppli¬ 


zio, un pedaggio assai gravoso che bi¬ 
sogna pagare per ritrovare la silouette 
perduta. 

Ma la costanza di chi è impegnato 
quotidianamente nel ritmo stressante 
della vita di oggi è certo minore di 
quanto non sia desiderabile: in una 
parola, ci si stanca ben presto delle 
diete e, rimandando a domani l’impe¬ 
gno solenne di essere più costanti, do¬ 
po qualche sacrificio e svariati tentati¬ 
vi si finisce per decidere che è meglio 
tenersi i chili superflui! 

Il programma DIETA PERSONA¬ 
LIZZATA introduce un elemento 
nuovo nell'acquisizione di abitudini di 
alimentazione sensate. La potenza del 
microcomputer viene combinata con 
la capacità umana di apprendimento, 
per stabilire una razione quotidiana di 
cibi bilanciata e interessante. Il com¬ 
puter provvede a fornire un rapido cal¬ 
colo delle calorie, delle vitamine e dei 
minerali, assieme a consigli pertinenti 
sui livelli di consumo degli alimenti, 
sul peso ideale e sugli aumenti o dimi¬ 
nuzioni di peso previsti. Queste infor¬ 
mazioni vi permetteranno di stabilire 
l'esatta quantità della vostra pietanza 
preferita che vi consente di dimagrire 
senza la sofferenza di una dieta mono¬ 
tona e poco allettante. 

Se avete accumulato qualche chilo 
in più lavorando troppo alla tastiera, 
vi proponiamo di fare ancora un picco¬ 
lo sforzo: sarete ricompensati con un 
consulente dietetico sul vostro Apple 
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DRIVE DI LAVORO SLOT 6 DRI¬ 
VE 1 (S/N) 


Se il dischetto con i dati è nel drive 
collegato allo slot 6, drive 1, premete 
S. Una risposta N permette la selezio¬ 
ne di altri drive. 

Entrambe le vie porteranno alla fine 
alla richiesta da parte del computer del 
nome dell’utente. Vi consigliamo di 


che vi suggerirà il più piacevole dei 
sistemi per ritrovare la linea. Con la 
DIETA PERSONALIZZATA potre¬ 
te inoltre chiedere all’Apple di inclu¬ 
dere nei piatti della vostra dieta anche 
quelli che non sono inclusi nel databa¬ 
se iniziale. Basterà per questo che spe¬ 
cifichiate la composizione del vostro 
manicaretto introducendo i dati in ter¬ 
mini di alimenti elementari. 

Gli ingredienti essenziali del pro¬ 
gramma comprendono: 

1. Un database di cibi fondamentali. 

2. Il mezzo di consentire all’utente di 
comunicare al computer i tipi e le 
quantità dei cibi consumati. 

3. Il calcolo degli elementi nutrizionali 
e il confronto con le necessità dell’u¬ 
tente. 

4. Le procedure per modificare il data¬ 
base in conformità con le necessità 
personali. 

Per iniziare 

Per far girare il programma dovete 
inserire il dischetto e battere RUN 
DIETA PERSONALIZZATA. 
Compare per prima cosa una pagina 
d’intestazione, e dopo aver premuto 
un tasto qualunque vedrete un’ avver¬ 
tenza. Qualora vogliate ricorrere all’a¬ 
iuto di un medico prima di metter ma¬ 
no al programma, come suggerito nel¬ 
l’avvertenza, vi consigliamo di men¬ 
zionare il programma nel corso della 
visita. E infatti molto probabile che il 
medico possa suggerirvi qualche inte¬ 
ressante estensione e/o modifica. 

Dopo l’avvertenza vi sarà presenta¬ 
to un menù di otto opzioni, come mo¬ 
stra la figura 1 . Esamineremo queste 
opzioni nell’ordine in cui sono elenca¬ 
te nel menù. 

Data file personali 

Questa parte del programma istitui¬ 
sce un file con i dati personali dell’u¬ 
tente. Essi sono essenziali per far fun¬ 
zionare a dovere altre opzioni del pro¬ 
gramma. Una volta battuto 1, senza 
RETURN, viene evidenziato: 


tenere i rapporti con il computer sulla 
base del nome di battesimo, dato che 
riceverete spesso la richiesta di battere 
il nome. 

Se siete gelosi dei vostri dati perso¬ 
nali è questo il punto adatto per ag¬ 
giungere al vostro nome due o tre ca¬ 
ratteri di controllo nascosti. In questo 
modo i file dovrebbero essere fuori 
della portata di eventuali occhi indi¬ 
screti (può sempre succedere di dover 
prestare il proprio dischetto a qualcu¬ 
no!). 

Dopo aver battuto il nome e premu¬ 
to RETURN riceverete una serie di 
domande personali sull’altezza e sul 
peso. Alle domande a scelta multipla 
dovrete rispondere con la pressione di 
un singolo tasto come mostrato nella 
figura 2. Se è tutto corretto battete S e 
vi verrà presentata la stima fatta dal 
computer sul vostro peso ideale sulla 
base delle informazioni che avete ap¬ 
pena fornito all’Apple. 

Premete adesso ancora un tasto 
qualsiasi per ricevere la richiesta di 
scegliere fra vari livelli di attività che vi 
sono abituali. Se ritenete che il vostro 
livello di attività cade fra due delle 
categorie che vi vengono proposte, 
potete scegliere un numero decimale 
situato in qualsiasi punto intermedio 
fra due delle cinque categorie. 

Battuta la vostra scelta, seguita da 
RETURN, l’Apple fornisce una stima 
del numero di calorie che potete inge¬ 
rire per mantenere il vostro peso idea¬ 
le. Non è necessario prendere nota di 
queste cifre, ogni tanto il programma 
vi ricorderà questo dato avvertendovi 
se il numero di calorie che avete deciso 
di ingerire è superiore o inferiore a 
quello calcolato per il mantenimento 
del peso. 

Le due domande successive vi chie¬ 
dono se volete salvare i vostri dati per¬ 
sonali su dischetto e avviare un nuovo 
record del peso. Quando usate il siste¬ 
ma per la prima volta occorre una S 
per istituire due data file personali 
identificati dal vostro nome. Una S in 
risposta a queste due domande cancel¬ 
la (qualora esistano) i dati personali 
che avevate fornito in precedenza, e 
perciò potrete usare questo sistema 
per revisionare i livelli di attività, mo¬ 
dificare il dato della struttura fisica o 
cominciare un nuovo record del peso. 
Con N si lasciano semplicemente in¬ 
tatti i dati originali. 

'Ultima domanda in questa sezione 
del programma è: 


VUOI CREARTI UN DATA BASE 
DI CIBI (S/N) 
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FINE PROGRAMMA 
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Figura 1 - Moduli principali dei programma. 


MI SERUE QUALCHE DATO PER 
STABILIRE IL TUO PESO IDEALE 


QUAL'E' LA TUA CORPORATURA MEDIA ? 

S l'MALL M >EDI IJM L>ARGE ? M 

MMASCHIO 0 FFEMMINA ? M 

PESO E ALTEZZA POSSONO ESSERE MISURATI 

IN CCHILOGRAMMI E CENTIMETRI 
0 L>1 BERE E POLLICI ? 

LA TUA ALTEZZA E' 175 CENTIMETRI 


I NF0 R MAZI0NI CORRETTE ? C S✓N>s 


Figura 2 - Dati personali. 
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ANALISI DELL 1 AL IMENTAZIONE 


1 ANALISI GIORNALIERA 


2 ANALISI A LUNGO TERMINE 


DA ASSEGNARE 


DA ASSEGNARE 


MENU PRINCIPALE 


QUALE 


csa 
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Figura 3 - Scelte di analisi dell'alimentazione. 


Risponderete N se avete acquistato 
il dischetto o se avete già creato il vo¬ 
stro database. Occorre invece che ri¬ 
spondiate S se avete digitato il pro¬ 
gramma dal listato e siete pronti a in¬ 
trodurre i dati sui cibi per la prima 
volta. Se è questo il vostro caso rispon¬ 
dete SI anche alla domanda successi¬ 
va. In seguito potrete usare l’opzione 2 
per cominciare a introdurre i dati sui 
cibi. 

Se state usando il dischetto di Appli¬ 
cando con il database CIBI basta bat¬ 
tere N. In caso di indecisione potrete 
battere S seguito da un tasto qualsiasi. 
Il vostro Apple vi mostrerà il catalogo 
del dischetto per poi tornare al menù 
principale. 

Avete aggiunto due nuovi file al di¬ 
schetto. Uno contiene la vostra altez¬ 
za, struttura fisica e il livello di attività 
fisica, mentre il secondo contiene le 
unità di misura cui farà riferimento in 
futuro il computer. Se volete evitarvi 
sorprese, battete a questo punto 8 per 
mettere fine al programma e protegge¬ 
re (LOCK) i due nuovi file che avete 
creato per evitare che possano andare 
persi inavvertitamente. Battete RUN 
DIETA PERSONALIZZATA per 
continuare. 

Ora che avete predisposto i file per¬ 
sonali essenziali potete procedere sen¬ 
za l’aiuto di ulteriori istruzioni. Per i 
più incerti le righe seguenti daranno 
però una fonte di ulteriori informazio¬ 
ni per superare eventuali difficoltà. 


Analisi nutrizionale 

Avrete trovato, si spera, la via del 
ritorno al menù principale (figura 1). 
In caso contrario andate a controllare 
le prime istruzioni della sezione prece¬ 
dente. Fatto questo potete premere 5 
e dare il vostro nome (lo stesso utiliz¬ 
zato per inserire i vostri dati): vi sarà 
presentato un altro menù come si vede 
in figura 3. Premete 1 per procedere 
all’analisi dell’alimentazione quotidia¬ 
na. Vi viene poi chiesto se è il primo 
pasto della giornata o se è una registra¬ 
zione successiva. 

Questo procedimento esige qualche 
ulteriore spiegazione. Il programma è 
inteso a mantenere una registrazione 
continua del consumo di calorie per un 
giorno, e permette di mettersi alla ta¬ 
stiera dopo ogni pasto, o anche più 
spesso se si fa qualche spuntino, e di 
informarne il computer. Quando ave¬ 
te fornito i particolari della vosta ali¬ 
mentazione, il computer addiziona il 
numero delle calorie, delle vitamine e 
dei minerali e vi riferisce un rapporto 
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dettagliato. Poi registra le informazio¬ 
ni sul dischetto perché possano essere 
richiamate più tardi nella giornata. 

La prima seduta di ogni giorno è 
chiamata NUOVA. Le successive se¬ 
dute sono chiamate SEGUITO. Dato 
che questa è la prima seduta premete 
N. (Rispondendo S a questo punto si 
avrà come risultato un messaggio di 
FILE NOT FOUND e un poco ceri¬ 
monioso ritorno al prompt del BA¬ 
SIC.) 

Poi il programma chiede il numero 
di record del cibo seguente e ricorda di 
premere RETURN se avete finito. In¬ 
troducete il numero di record del cibo 
voluto prendendolo dalla lista allegata 
a questo articolo. (In alternativa ci si 
può procurare una lista di tutti i cibi 
ricorrendo all’opzione SORT/STAM- 
PA LISTA CIBI della figura 11). 

Premete RETURN e le informazio¬ 
ni sul cibo appena scelto vengono lette 
sul dischetto. Compare un display si¬ 
mile a quello della figura 4; controllate 
che il nome del cibo sia quello giusto 
sulla riga più alta, se avete richiamato 
per sbaglio un cibo non desiderato do¬ 
vete premere 0 come indicato nella 
quarta riga della videata. 

La seconda riga (figura 4) indica la 
"misura standard" sulla quale sono sta¬ 
te calcolate vitamine e calorie per il 
cibo scelto. Le ultime quattro righe 
sono un promemoria delle tre opzioni 
disponibili per misurare la quantità 
mangiata. Il 2 dopo QUANTITÀ? nel 
display indica che l’utente ha mangia¬ 
to due volte la MISURA STAN¬ 
DARD, per esempio due etti di un 
cibo con misura standard 100 grammi. 
Naturalmene potete introdurre la mi¬ 
sura standard che preferite, come ad 
esempio 150 grammi o 8 once: per far¬ 
lo dovete soltanto ricordarvi di inseri¬ 
re la cifra seguita da GR per i grammi e 
da OZ per le once. Queste opzioni 
sono previste per chi pesa le sue por¬ 
zioni. 

Il completamento dell’introduzione 
vi porterà un’altra richiesta del nume¬ 
ro di record di un cibo. Potete conti¬ 
nuare a immetere cibi con questa pro¬ 
cedura fino a quando non avete inseri¬ 
to l’intero pasto. Per completare l'in¬ 
troduzione dei dati di un pasto è suffi- 
cente battere RETURN e avrete come 
risultato un display di cibi simile a 
quello visibile in figura 5. Alcune delle 
voci più lunghe sono un po’ abbreviate 
perché possano stare sullo schermo. 

Controllate la lista per vedere se ci 
siano errori e voci mancanti. Se tutto è 
esatto premete S per continuare. Un 
errore significa che dovrete reintro¬ 
durre l’intera lista. Una volta che la 


IL PROSSIMO CIBO E 1 FILETTO DI 

MANZO 

MISURA STANDARD ’ 100 GR 


.QUANTITÀ ? * 


BATTI | SE HAI SBAGLIATO 

CIBO 



HAI TRE POSSIBILITÀ’ DI INPUT 

USANDO LA MISURA STANDARD CES. 

1 } 

SPECIFICANOO IN GRAMMI < ES. 

114GR > 

SPECIFICANDO IN ONCE CES 

40Z > 


Figura 4 - Immissione esemplificativa. 


UEROUTE COTTE MISTE 2 * 7100 GR ■ 
ARROSTO DI TACCHINO 150GR 
SUCCO POMPELMO 2 * Q00 GR > 

TORTA CIOCCOLATO 2 * <100 GR) 


CIBI E QUANTITÀ’ OK ? 


Figura 5 - Lista dei cibi di una sessione. 


< S"N >® 


HAI CONSUMATO 1202 CALORIE 

CON UNA NUTRIZIONE COME QUELLA DI OGGI 
IN UNA SETTIMANA PERDI CIRCA 
1 9 CHILOGRAMMI 

HAI BISOGNO DI CIRCA 3215 CALORIE PER 
MANTENERE IL TUO PESO IDEALE DI 69 
CHILOGRAMMI 

MANGIANDO 3382 PER GIORNO MANTERRAI 
IL TUO ATTUALE PESO DI 73 CHILOGRAMMI 


Figura 6 - Rapporto guadagno/perdita. 
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lista è completa, vi verrà chiesto se 
volete specificata la lista degli elemen¬ 
ti nutritivi consumati finora nella gior¬ 
nata, come si vede in figura 14. 

Potete saltare questo display e ver¬ 
rete invitati a dire se è vostra intenzio¬ 
ne mangiare altro in giornata. Rispon¬ 
dendo S avrete come risultato una re¬ 
gistrazione sul dischetto delle quantità 
totali di elementi nutritivi e del nome 
dell’ultimo cibo immesso. Vedrete la 
lista degli elementi nutritivi totali, 
espressi in forma di percentuale delle 
vostre esigenze quotidiane in modo da 
consentirvi di "fare un piano" per il 
prossimo pasto. Un’ultima battuta di 
tasto mette fine alla seduta. Gli ali¬ 
menti dell’ipotetica prima colazione 
sono memorizzati sul dischetto. 

È probabilmente il momento op¬ 
portuno per far girare di nuovo il pro¬ 


gramma e provare la routine del pran¬ 
zo. La procedura è la stessa di prima, 
con un paio di eccezioni. Quando vie¬ 
ne chiesto se il record quotidiano è 
nuovo o un seguito della nutrizione di 
quel giorno, dovete ovviamente ri¬ 
spondere S. Vengono allora lette sul 
dischetto le informazioni sulla colazio¬ 
ne, e verrà riproposta di nuovo la lista 
degli elementi nutritivi insieme con il 
nome dell’ultimo cibo introdotto in 
memoria. 

Dovrete continuare a inserire i dati 
dei vostri pasti premendo S e conti¬ 
nuando l’introduzione con lo stesso si¬ 
stema che abbiamo già visto. Gli ele¬ 
menti nutritivi saranno aggiunti a 
quelli della prima colazione e il tutto 
sarà salvato sul dischetto, in sostitu¬ 
zione della lista della prima colazione. 

Adesso facciamo una prova dell’ul¬ 


tima seduta della giornata. Fatto gira¬ 
re di nuovo il programma immettete 
l’ultimo pasto come sopra. Quando vi 
viene chiesto se intendete mangiare 
altro, la vostra risposta sarà N. Vi ven¬ 
gono allora chiesti il peso corrente e la 


Listato 1 - DIETA PERSONALIZZATA 


1 

2 

3 

4 

5 
4 
7 

e 

io 

20 

30 

40 

50 

40 


45 

70 


75 


90 

100 

200 

205 

210 

215 

220 

225 


230 

235 

240 

245 

250 

255 

240 

245 


RE74 ********************** 
REM «DIETA PERSOGLI ZZATA* 
REM » BY D.R. PENDERGAST * 
REM * COPYRIGHT <C> 1985 * 
REM * 8Y APPLICANDO * 
REM * 4 MICROSPARC, INC * 
REM ********************** 
0NERR GOTO 15000 


REM «DIETA PERSONALIZZATA** 

POKE 748,0: P0KE 749,0 
REM «INTESTAZIONE** 

TEXT : HOME : GOSUB 305 

VTAB 20: HTAB 3: PRINT ”<C) 1985 BY APPLICANDO 4 MICR0SP 
ARC' 

VTAB 5: HTAB 15: INVERSE : PRINT 'DIETA 1 : VTAB 4: HT 
AB 13: PRINT ' ': HTAB 7: VTAB 7: PRINT 'P E 

R S 0 N A L ! ZZATA' 

NÒRMAL : VTAB 14:"HTAB 4: PRINT 'PIANIFICATORE DI DIETE 
PERSONALI' 

GOSUB 735: HOME :AAt = 'DIETA PERSONALIZZATA':Ali = ’AW 
ERTENZE': VTAB 4: HTAB 3: PRINT 'I SUGGERIMENTI DI PESO 
E NUTRIZIONE': VTAB 8: HTAB 3: PRINT 'CONSIDERANO UOMINI 
E D0M1E DI ETÀ'': VTAB 10: HTAB 3: PRINT 'COMPRESA FRA 
I 25' j 

PRINT “ E I 50 AbMI.' 

VTAB 13: HTAB 3: PRINT 'SONO ESCLUSE LE D0WE IN GRAVIDA 
NZA.'i VTAB 15: HTAB 3: PRINT 'E' CONSIGLIABILE RIVOLGER 
SI A UN’: VTAB 17: HTAB 3: PRINT''MEDICO PER MAGGIORI IN 
FORMAZIONI': VTAB 19: HTAB 3: PRINT 'ED EVENTUALI CONTRO 
INDICAZIONI.' 

GOSUB 240: GOSUB 305: GOSUB 785 
GOTO 1500 

REM «SUBR0UTINE** 

REM «VERIFICHE** 

VTAB 23: CALL - 848: PRINT 'CORRETTO (S/N) “;G*; : GET 
Yt: PRINT Yt: RETURN 
REM «INSERIMENTO DATA** 

PRINT 'BATTI ':: INVERSE :CV = PEEK (37): GOSUB 225:Pi 
(K) = 04: RETURN 

PRINT Tt(K);: N0RMAL : PRINT ': ':Gt: PRINT VI»; TAB( T 
V(K) * 3):V2t: VTAB (CV + 2): HTAB 2: INPUT Qi: VTAB (C 
V * 1): HTAB ( LEN (Tt(K)) + 9): CALL - 958: PRINT Qi: 
RETURN 

REM **APRE I FILE DA SCRIVERE** 

PRINT DI‘OPEN * ; FI LE*",L‘;RL;“,S“;SX;“ 

PRINT M‘WRITE':FILE»',R' RX 
RETURN 

REM «OPZIONE DI USCITA** 

PRINT "BATTI ":: INVERSE ; PRINT 'RETURN';: NORMAL : PR 
INI ' PER USCIRE'; : RETURN 
REM ** CENTRATURA** 

VTAB 2: HTAB (20 - LEN (AAt) / 2): IfWERSE : PRINT AAt 


, D ' : DX 



270 

271 

272 
275 
280 
285 
290 
295 
300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

340 

345 

370 

375 

380 


385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 


: NORMAL 

VTAB 3: HTAB 2: PRINT 8$: VTAB 3: IWERSE : HTAB (20 - 
LEN (Alt) / 2): PRINT Alt: POKE 34.3: NORMAL : RETURN 
PRINT Dt'VERIFY"jFILEt'.S';SX;’,D*;0X 
RETURN 

REM ««APRE I FILES DA LEGGERE*» 

PRINT Di’OPEN ';FILE$'.L':RL:",S"jSX:'.D';DX 
RX = 1NT (RX): PRINT Dt'READ* FILEt ,R';fc< 

RETURN 

REM «LISTA I DATA DEI CIBI** 

HOME : PRINT : F0R K = 1 TO NF: PRINT K:'. ':TÌ(K);' - 
' ; : INVERSE : PRINT Pt(K): NORMAL : NEXT K: RETURN 
REM, «DISEGNA CONTORNO* 

VTAB 23: FOR K = 1 TO 39: PRINT '*';: NEXT K: PRINT : V 
TAB I: FOR K = 1 TO 39: PRINT ’*";: NEKT K: PRINT 
FOR K = 1 TO 22: PRINT '*';: HTAB 39: PRINT ’*': NEXT K 
: RETURN 

REM «LEGGE LA LUNGHEZZA DEI RECORD E DEI CAMPI** 

PRINT Di’OPEN'jFILEt + BCt;',S’;SX;“,D';DX 

PRINT Dt'READ':FILEt ♦ BCt 

INPUT NF: INPUT RL: DIM Ti(2 * NF).TV(NF),Pt(NF) 

POR K = ! T0 NF: INPUT Tt(K): INPUT TV(K): NEXT K 

PRINT Dt'CLOSE’FILEi + BCt 

RETURN 

REM ««APRE I FILES DA LEGGERE** 

PRINT DI"OPEN 1 ;FILEV,L‘;RL;',S‘;SX;*,D";DX 
PRINT Dt'READ';FILEt',R0' 

RETURN 

REM «INTESTAZIONE PAGINA** 

HTAB 3: PRINT "N.": : HTAB 15: PRINT 
RINT 'N.“: : POKE 34,42: PRINT "CIBO 
T 'N.“ ; : POKE 34,49: PRINT 'CIBO 1 ' 

PRINT 

PP = PP « 1:8L = 0 
RETURN 

REM ** STAMPANTE ACCESA ** 

HOME : PRINT : PRINT 'STAMPANTE NELLO SLOT N. ';G1 
UT,SLOT 

IF PEEK ( - 12504) = 183 THEN GOTO 425 
PRINT Dt;“PR£1": PRINT 

POKE - 12527,0: POKE - 12524,82: POKE - 12528.7 
°R!NT Dt'PR£*;SL0T: POKE - 12527,0: POKE - 12524,82 
POKE - 12528,7 
RETURN' 

REM «STAMPA 1 DATA DEI CIBI** 


■CIBO';: HTAB 30: P 
;: POKE 34,57: PRIN 


INP 
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data: introduceteli nella maniera indi¬ 
cata prima. Noterete che dopo l’intro¬ 
duzione del peso viene rammentata la 
scelta di unità fatta: potete correggerla 
se lo ritenete necessario. Seguono al¬ 
lora, uno dopo l’altro, i rapporti di fine 
giornata, come si vede nelle figure 6 e 
7, e un rapporto simile a quello della 
figura 12. Un’ultima battuta di tasto 
salva sul dischetto le informazioni sul 
peso, sulla data e sulle calorie e mette 
fine alla contabilità della giornata. 

Il sottomenù ANALISI DELL’A¬ 
LIMENTAZIONE comprende un’al¬ 
tra opzione intitolata ANALISI A 
LUNGO TERMINE. È bene che dia¬ 
te un’occhiata adesso: il rapporto mo¬ 
stra la perdita o il guadagno totale di 
peso in un periodo allo studio, e il 
consumo medio di calorie dell’utente 
per il confronto con il peso ideale. 


Diventa adesso evidente l’utilità 
delle informazioni che fornisce il pro¬ 
gramma. Non solo avrete un valido 
aiuto nella programmazione dei pasti 
ma saprete anche con esattezza quante 
calorie avete già consumato nella gior¬ 
nata e quante ve ne restano a disposi¬ 
zione per continuare il programma di 
dieta che avete impostato (magari con 
l’aiuto di un medico). Le informazioni 
sui principali elementi nutritivi per¬ 
mettono inoltre di regolare i tipi di 
cibo in modo che la dieta sia bilancia¬ 
ta. Infine il rapporto a lunga scadenza 
permette di sorvegliare i progressi che 
andate facendo con il procedere del 
programma nutrizionale impostato. 

Se dopo un periodo di prova vi ritro¬ 
vate affamati senza essere riusciti a 
perdere nemmeno un etto, questo 
programma vi viene ancora incontro 


con altre informazioni utili. Potete in¬ 
fatti provare a modificare il vostro li¬ 
vello di attività in modo da trovare il 
giusto compromesso tra le vostre esi¬ 
genze alimentari e la ricerca di una 
linea migliore. I rapporti di fine gior¬ 
nata vi diranno qual è il tasso della 
perdita di peso settimanale che potete 
prevedere in base al consumo calorico 
effettivo. 


Analisi delle ricette 

Diverse caratteristiche aggiuntive 
del programma sono intese a ridurre lo 
sforzo necessario per verificare la pro¬ 
pria alimentazione. È improbabile che 
i dati sui cibi fondamentali forniti nella 
lista dei cibi comprendano tutti i piatti 
che normalmente mangiate. L’opzio- 


440 HTAB 3: PRINT RX<1>;: HTAB 7: PRINT Pi(l);: HTAB 30: PR 
INI RX(1):: HTAB 34: PRINT P«<2) ; : POKE 3Ó, 57 : PRINT RX 
<3): : POKE 36,41: PRINT Pt(3) 

445 RETURN 

450 REM «LETTURA QUANTITÀ' E UNITA' DEI CIBI DALLE STRI 
NGHE** 

455 LE = LEN (A*):ER = 0 

440 FOR K = 1 T0 (LE - 2>:Y! = MIDI <A!,K,1): 1F Yi = *0' 
OR Yi = V THEN 470 

445 Y = VAL (Yi): IF Y = 0 THEN ER = 1 : RETURN 
470 NEXT K 

475 IF RIGHTi (A1.2) = ’GR" THEN CO = UAL ( LEFTi (Ai,LE 

- 2» / 100: RETURN 

480 IF RIGHTi (Ai,2) = '02' THEN CO = -UAL ( LEFTi (Ai,LE 

- 2)) * .28375: RETURN 

485 FOR K = 1 TO LE:YÌ = MIDI (AÌ,K,1): IF Yi = T OR Yi 
= V THEN 495 

490 IF VAL (Yi) = 0 THEN ER = 1: RETURN 
495 NEXT K 

500 CO = UAL <Pi<3» * UAL (Al)iAÌ = Ai ♦ * * <" *‘Pi(2) 

* *Y’:AÌ = LEFTi (Ai,19); RETURN 
505 PRINT QQi'(S/N)':GÌ;: GET Al: PRINT Ai: IF Ai = "S" THE 
N YES = 1 : RETURN 

510 IF Ai = •N- THEN YES = 0: RETURN 
515 INVERSE : PRINT ■BATTI 'S' 0 'N' NORMAL : GOTO 50 
5 

520 REM «LISTINO QUANTITÀ DEI CIBI»* 

525 VTAB 4: FOR K = 1 TO NI: PRINT PSKK); TAB( 21):CSi(K): 
NEXT K:SQÌ = 'CIBI E QUANTITÀ' 0K ? ’: VTAB 24: GOSU 
B 505: POKE 34,0: RETURN 
530 REM **L1ST1NG DELLA NUTRIZIONE** 

535 m = "COMPOSIZIONE DEGL! ALIMENTICI! = * ASSIMILATI 
NELLA GIORNATA ": GOSUB 240: HOME : PRINT : PRINT 
540 PRINT TAB! 4):"TOTALE CALORIE ":: INVERSE : HTAB 24: P 
RINT PS<4>: NORMAL : FOR K = 5 T0 NF: PRINT TAB( 4)jTl 
(K): TAB', 24):; INVERSE : PRINT PS(K): NORMAL : NEXT K: 
POKE 34,0: RETURN 

545 REM «SALVA PASTO PARZIALE DELLA GIORNATA* 

550 FOR K = 4 TO NF:PÌ(K) = LEFTi ( STRI <PS(K)).TV<K))i N 
EXT K:RX = 0:F!LEi = "PASTO PARZIALE DI " ♦ NAMEÌ 
555 GOSUB 230: FOR K = 1 TO NF: PRINT Pi(K): NEXT K: PRINT 
Di’CLOSE’:FILEÌ: RETURN 

540 REM «LEGGE PASTO PARZIALE DELLA GIORNATA** 

545 RX = 0:FILE1 = "PASTO PARZIALE DI “ * NAMEi 
570 MVi = "NON HAI UN FILE CON UN PASTO PARZIALE": GOSUB 27 
1: GOSUB 275: FOR K = 1 TO NF: INPUT PKK)ìPS(K) = VAL 
<PÌ(IO): NEXT K: PRINT DVCLOSE" ;F1LEÌ 
575 GOSUB 530 

580 VTAB 22: PRINT TAB< 2);"ULTIM0 CIBO "|: INVERSE : HTA 
B 20: PRINT p$<!) 

585 QQi-= "ERAVAMO RIMASTI QUI’: VTAB 24: HTAB 5: GOSUB 505 
:FILE$ = "CIBI": RETURN 
590 REM «PESO IDEALE** 

595 IF SEXi = "M" AND (H > = 41 AND H < = 75) THEN 420 


400 

405 


410 


415 

420 


425 

430 

435 

440 

445 

450 

455 

440 

645 


670 

475 

680 

485 

490 

695 

700 

705 

710 

715 

720 


723 


725 

730 

735 

740 

745 

750 

755 

740 

765 


IF SEXi = "F" AND (H ) = 56 AND H < = 70) THEN 420 
TEXT : HOME : 'VTAB 3: PRINT "NON RIENTRI NELLE MIE POSS 
IBILITA' “: PRINT : PRINT "DI CALCOLO DEL PESO IDEALE." 
: PRINT : PRINT "SONO LIMITATO AD UN'ALTEZZA COMPRESA": 
PRINT : 

PRINT "TRA 154 CM E 190 CM PER GLI UOMINI E": PRINT i P 
RINT "TRA 142 CM E 178 CM PER LE DONNE.": VTAB 20:QQ1 = 
“PRONTO PER TORNARE AL MENU ": GOSUB 505: IF YES THEN 
1550: 


GOTO 2020 

HN = H / 61:B0 = 1.1:81 = - 1,8275:B2 = 1.72114: IF SE 

Xi = "F" THEN HN = 41 * IN / 56:B0 = 1.762:81 = - 2.95 

:B2 = 2.1889 
DE = .03:FR = 114 

IF Fi = "M" THEN DE = ,045:FR = 124 
IF Fi = "L" THEN DE = ,04:FR = 134 
IF SEXi = "F" THEN FR = 95 
IF (SEXi = "F") AND (Fi = "M") THEN FR = 101 

IF (SEXi = "F") AND (FI = "L") THEN FR = 112 

WT = FR * <B0 + B1 * FfN + B2 * Fti * 2) 

IF Di = "C" THEN NT = UT / 2.20 
UU = INT (UT * DE * WT * .5):UL = 1NT (UT - DE * UT + 
.5) 


AAi = "LBS": IF Ui = "C" THEN AAi = "KG" 
RETURN 


REM «DISPLAY CALORIE/PESO IDEALE** 

CK = 28.08 - .717 * AL * .9428 * AL " 2 
IF SEXi = "M" THEN CK = 1,15 * CK 
GOSUB 590 

CC = (UT / 2.2) * CK: IF Ui = "C" THEN CC = CC » 2.2 
CL = ( INT ((CC - DE * CC + .5) / 100)) * 100:CU = ( IN 
T ((CC + DE * CC * .5) / 100)) * 100 
RETURN 

TEXT : HOME : REM « INPUT DEL NOME** 

VTAB 10: HTAB 5: PRINT "BATTI IL TUO NOME. P0TR0' COSI' 

": VTAB 12: HTAB 8: PRINT "IDENTIFICARE IL TUO FILE" 

VTAB 14: HTAB 10: PRINT "NOME ": VTAB 14: HTAB 14: INPU 
T fWHEi: 0N LEN (NAMEi) = 0 GOTO 720: ON ASC ( LEFTi 
(NAMEi.D) < 45 OR ASC ( LEFTi (NMEl.l)) ) 90 GOTO 72 
0: RETURN 

TEXT : HOME : REM «DATA/PESO** 

VTAB 10: HTAB 2: PRINT "INSERISCI LA DATA (GG/1WAA) "; 
Gl;: INPUT DAI 

IF LEN (DAI) < 8 OR LEN (DAI) > 8 THEN 730 

K = VAL ( LEFTi (DAI,2)): IF (K < 1) OR (K ) 31) THEN 

730 

K = VAL ( MIDI (DAI,4,2)): IF K ( 1 OR K ) 12 THEN 730 
K = VAL ( RIGHTi (DAI,2)): IF K < 81 OR K > 99 THEN 73 
0 

IF (( MIDI (DAI,3,1) = CHRi (47)) = 1) AMD (( MIDI (DA 
1,6,1) = CHRi (47)) = 1) THEN GOTO 765 
GOTO 730 

TEXT : HOME : VTAB 12: HTAB 14: PRINT DAI: VTAB 14: HTA 
B 4:00* = "E' CORRETTA LA DATA ? ": GOSUB 505: IF YES < 

Continua 
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LE CALORIE CHE HAI CON 

SUMATO OGGI 

SONO COMPOSTE DA 


CARBOIDRATI 

59’: 

GRASSI 

22* 

PROTEINE 

1 9* 

PER UNA CORRETTA ALIMENTAZIONE SI 

SUGGERISCONO LE SEGUENTI PERCENTUALI 

CARBOIDRATI 

50* 

GRASSI 

30* 

PROTEINE 

20* 



Figura 7 - Raccomandazione dell’AMA. 


ne di VALUTAZIONE RICETTE 
del menù principale (figura 1) vi per¬ 
mette di stabilire il valore nutrizionale 
delle porzioni a cui siete abituati per i 
vostri piatti preferiti. 

Procedete nel menù principale fino 
alla VALUTAZIONE RICETTE. 
Dopo aver letto qualche istruzione ar¬ 


riverete alla richiesta, ormai familiare, 
del numero di record di un cibo. Que¬ 
sta parte del programma, che stabili¬ 
sce i tipi e le quantità di cibi presenti 
nella ricetta, è presa dalll’ANALISI 
GIORNALIERA DELL’ALIMEN¬ 
TAZIONE. 

La lista completa degli ingredienti 


di un risotto ai funghi è visibile in figu¬ 
ra 8. L’assicurazione da parte vostra 
che l’elencazione è esatta vi porta al 
display di figura 9. Dato che molte 
preparazioni perdono di peso durante 
la cottura, vi viene data l’opportunità 
di ritoccare il peso in modo che rifletta 
il cambiamento. Non occorre che fac¬ 
ciate questa correzione se non avete 
intenzione di pesare le porzioni di ci¬ 
bo. 

Il completamento di questo passo 
porta a una richiesta del nome della 
ricetta. Comunicate il nome comple¬ 
tandolo con il numero delle porzioni 
che la ricetta fornisce. Ricevute queste 
informazioni, il computer le sistema 
nel formato tipico del database dei cibi 
e memorizza le informazioni sul di¬ 
schetto come ulteriore voce di cibo. 

In figura 10 è visibile una stampa dei 
dati relativi al risotto ai funghi. La se¬ 
conda riga indica che la misura tipica è 
120 grammi. La frazione (1/1) alla fine 
della riga indica che la porzione tipo 
comprende l'intera ricetta. Gli ele¬ 
menti nutritivi della lista sono dati tut¬ 
ti sulla base di 100 grammi di cibo. 
L’ammontare effettivo degli elementi 
nutritivi del risotto è quindi 1.2 volte 
maggiore dei numeri mostrati. 





Tutti i prodotti Seikosha 
sono corredati da regolare 
certificato di garanzia italiana. 








■■i 


BURRO 50GR 

CIPOLLE MATURE 20GR 

FUNGHI COTTI 20GR 

OLIO DI ARACHIDE 20GR 

PARMIGIANO 40GR 

RISO BRILLATO 320GR 

MINO DA PASTO COMUNE0 5 * C100 ML 


QUANTITÀ 1 


( S/N 


Figura 8 - Ricetta esemplificativa: risotto coi funghi. 


Le visualizzazioni 
dei dati dei cibi 

L’opzione 3 del menù principale, 
DISPLÀY/STAMPA CIBI (figura 1), 
conduce a un sottomenù (figura 11) 
che fornisce qualche infomazione ag¬ 
giuntiva per migliorare l’analisi quoti¬ 
diana deìralimentazione. 

L’opzione VALUTAZIONE NU¬ 
TRIZIONALE permette di studiare 
la lista dei cibi e di confrontare il loro 
contenuto nutrizionale con le vostre 
esigenze personali. Le informazioni 
fornite da questa parte del programma 
vanno usate in combinazione con i 
rapporti relativi a una parte del giorno 
ricavati dall’ANALISI GIORNA¬ 
LIERA (figura 3), per giungere a una 
dieta bilanciata alla fine della giorna¬ 
ta. Come diretta conseguenza appren¬ 
derete di più sugli aspetti nutrizionali 
delle varie porzioni di cibo. Un rap¬ 
porto esemplificativo (figura 12) mo¬ 
stra le percentuali di possibili esigenze 
personali soddisfatte da una bistecca 
di filetto. 

L’opzione di SORT/STAMPA LI¬ 
STA CIBI fornisce un elenco alfabeti¬ 
co dei cibi compresi nel database, ed è 


molto utile per aggiornare la lista dei 
cibi quando debbono essere aggiunti 
dei cibi e delle nuove ricette. 

RICERCA CIBI è un’ultima fun¬ 
zione di ricerca con il computer: quan¬ 
do non riuscite a individuare nella lista 
dei cibi una particolare voce, questa 
opzione vi consente di avere in un atti¬ 


mo una lista ristretta in una data cate¬ 
goria di cibi. Inoltre con questa funzio¬ 
ne potete avere la visualizzazione di 
tutti i nomi dei cibi (la velocità di vi¬ 
sualizzazione è controllata dalla padd- 
le 1, mentre il blocco e lo sblocco del¬ 
l’immagine a video avviene con CTRL 
S). Qualora decidiate di chiedere la 



Seikosha ti invita nel meraviglioso mondo delle sue stampanti. 

Un mondo fatto di progresso, di elevatissima qualità, velocità e silenziosità di stampa. 
Seikosha oggi ti propone la più vasta gamma di stampanti, compatibili e affidabili, ideate 
per esaltare le prestazioni di ogni tipo di computer. 

All'altezza di ogni esigenza, anche della tua. 



Distribuzione esclusiva in Italia: GBC Divisione Rebit. 









> 1 T HEN 725 

770 HOME : VTAB 12: HTAB 7; PRINT 'IL TUO ATTUALE PESO OGGI 
*: VTAB 14: HTAB 7: PRINT 'E' UTAB 14: KTAB IO: INPU 
T UÀ*: VTAB !4: HTAB 10: PRINT UÀ*:' LIBBRE': VTAB 14: 
HTAB 10: IF 0$ = "C THEN PRINT UA*j" CHILI " 

775 VTAB là: HTAB 7:30* = 'E' 7UT T 0 CORRETTO ': GOSUB 505: 

IF YES < >1 THEN 770: 

780 RETURN 

785 REM «UN TASTO QUALSIASI PER CONTINUARE** 

790 VTAB 23: HTAB 3: INVERSE : PRINT ' 'JN TASTO QUALSIASI P 
ER CONTINUARE ': HTAB 23: HTAB 37: SET Y* : PRINT Y*: : : 
NORMAL : RETURN 
795 REM ««TOTALI** 

800 NU(4) = CI:NU(5) = .2 * CI / 4:NU<4) = .3 * CI 1 9:NU<7 
) = .5 * CI / 4 

305 NU(8) = 300:NU<9) = 10:NU(11) = 5000:NU<12) = 1.2:NU(13 
) = 1.5:NU<14) = 16:NU<15) = 45:NU(14) = 99:NU(10) = 99 
810 IF SEXi = 'F' THEN NU(9) = !8:NU(1!) = 4000:NU(S2) = 1. 

0:NU(!3) = 1.2:NU<14) = 13 
815 RETURN 

820 REM «PERCENTUALI** 

825 AAi = ' PERCENTUALI NUTRITIVE ':A1* = 'DEL FABBISOGN 
0 GIORNALIERO": GOSUB 240: HOME : PRINT : PRINT 
330 FOR K = 4 TO NF: PRINT TABI 8);PSi<K): TAB! 24):: INVE 
RSE : PRINT Pi(K): NORMAL : NEXT'K: POPE 34.0: RETURN 
835 REM ««LEGGE DATI PERSONALI** 

840 POKE 34,0: TEXT : HOME : VTAB 12: HTAB 2: PRINT 'STO CA 

RIGANDO I TUOI DATI PERSONALI":RX = 0:RL = 30:FILE* = ' 
DATI PERSONAL! DI " + NAMEi 

843 MVi = 'DEVI PRIMA USARE L'OPZIONE 1 DEL MENU': GOSUB 27 
1: GOSUB 275: INPUT F*,SEX*,U*,H,AL: PRINT Di'CLOSE":FI 
LEi ' ' ' ' ' 

345 FOR K = 1 TO 2000: NEXT : HOME : VTAB 12: HTAB 10: PRIN 
T 'HO TROVATO "UWMEl: FOR K = 1 TO 2000: NEXT : RETURN 
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GOSUB 320: REM «LETTURA FILE DEI CIBI E SETUP** 

DIM PS(NF),P(NF),PSÌ(20},CS$(20) 

RX = 0: GOSUB 275: INPUT REC: PRINT DVCLQSE":FILE1: RE 
TURN 

REM «INPUT QUANTITÀ DEI CIBI** 

GOSUB 275: FOR K = 1 TO NF: INPUT Pi(K): NEXT R: PRINT 
Di'CLOSE"jFILEi;NI = NI * 5 

HOME : VTAB 4: HTAB 1: PRINT 'IL PROSSIMO CIBO E' ";P*< 
I): ‘VTAB 8: HTAB 1: PRINT "MISURA STANDARD : ’;P*(2> 
VTAB 15: HTAB 15: INVERSE : PRINT 'ISTRUZIONI’: NORMAL 
: 'VTAB 17: HTAB 4: PRINT "HAI tre POSSIBILITÀ Di INPUT 
": VTAB 19: PRINT 'USANDO LA MISURA STANDARD (ES, 


1 ) 

VTAB 21: PRINT 'SPEC1FICMDO IN GRtftlI (ES. 114GR)' 
VTAB 23: PRINT 'SPECIFICANDO IN ONCE (ES. 40Z)' 
VTAB 13: HTAB 4: PRINT ‘BATTI ':: FLASH : PRINT '0':: 
ORMAL : PRINT " SE HAI SBAGLIATI) CIBO" 

'VTAB 11: HTAB 12: PRINT 'QUANTITÀ ': VTAB 11: HTAB 20: 
INPUT Aì 

GOSUB 455: RETURN 

REM «CALCOLO PERCENTUALI** 

GOSUB 795: FOR K = 4 TO NF:P(K) = INT (PS(K) * 100 ! 
U(K)): NEXT 


FOR K = 4 TO NF:P'J(K) = STR* (P(K)) * ' X': NEXT 
Pi(10> = 'NON SPECIFICATO':P1U4) = P*<10> 

TEXT : HOME : GOSUB 820: RETURN 
REM «PROSSIMO CIBO RICHIESTO** 

TEXT : HOME : NORMAL : VTAB 13: HTAB 4: PRINT 'BATTI ': 
: 9LASH : PRINT 'RETURN':: NORMAL : PRINT ' PER USCIRE 
'VTAB 20: HTAB 11: PRINT G*:G*: 'VTAB 10: HTAB 4: INPUT * 
NUMERO PER IL PROSSIMO CIBO 11 ";AÌ: 'VTAB IO: HTAB 38 
IF LEN (A*) = 0 THEN RETURN 

RX = INT c VAL (Ai)): IF ((RX < 1) OR (RX > REC)) THEN 
'VTAB 14: INVERSE : HTAB 5: PRINT 'HAI SOLO ";REC;" RE 
CORD NEL FILE DEI CIBI’: NORMAL : FOR K = 1 TO 2000: NE 
XT K: GOTO 935 


GOSUB 845: RETURN 

REM ««AGGIUNGE NUTRIENTI** 

PS$(NI) = PÌ(I):CS$(NI> = Ai 

FOR K = 4 TO NF:P(K) = 'VAL (P$(K)>:PS(K) = PS(K) * CO 

« P(K): NEXT K: TEXT : HOME : RETURN 

REM «MESSAGGI VIDEO** 


TEXT : HOME : VTAB 5: PRINT "NON E' POSSIBILE INSERIRE 
PIU' DI VENTI': VTAB 7: PRINT 'CIBI PER SESSIONE.': RET 
URN 

REM «STABILISCE IL NUMERO DI RECORD** 

HOME :FILE* = "CIBI": GOSUB 320:RX = 0: GOSUB 275 


995 INPUT REC:REC = REC + I 

1000 PRINT Di'CLOSE"; FI LE*: RETURN 

1005 REM ««REGISTRA 'CIBO' SU DISCO** 

1010 RX = REC: GOSUB 230: 

1015 FOR KK = 1 TO NF: PRINT P$(KK>: NEXT KK 

1020 PRINT Di'CLOSE": RETURN 

1025 REM «SUBROUTINE INIZIAL1ZZA210NE** 

1030 REM «QUESTO FILE CIBI HA AL TERMINE DEL SUO NOME 114 
CTRL-B (BC*=CHRÌ(2)) CHE NON COMPARE NEL CATALOG.** 
1035 RL = 0:N = 14:FILEi = ■CIBI" 

1040 FOR K = ! TO N 

1045 RL = RL * TV(K): NEXT K:RL = RL + N 
1050 PRINT Di’OPEN":F1LE* * BC1;’,S'SX;",D"DX 
1055 PRINT D*"URITE';FILEi + BC* 

1040 PRINT N: print RL: FOR K = 1 TO N: PRINT TÌ(K): PRINT 
T V(K) : NDT K 

1045 PRINT Di'CLOSE’jFILEi * BC* 

1070 PRINT Di'LOCK-jFILEi * BC* 

1075 PRINT D$"OPEN *jFILEi",L";RL 
1080 PRINT Di'URITE"jFILEi",R0" 

1035 PRINT 0 
1090 PRINT Di'CLOSE" 

1095 TEXT : HOME 

1100 VTAB 12: HTAB 4: INVERSE : PRINT "PARAMETRI LISTA DE! 
CIBI FISSATI": VTAB 12: HTAB 34: FOR K = 1 TO 1500: NE 
XT K: NORMAL 

1105 HOME : PRINT Di:*CATALOG,S*SXi".D"DX 
1110 FOR K = I TO 5000: NEXT K: RETURN 
1495 REM «SUBROUTINE** 

1500 REM «RIPETE MENU PRINCIPALE** 

I51C Gl = CHRi (7): TEXT : HOME 
1520 REM ««MENU PRINCIPALE** 

1530 VI = 8: DIM Mi(Vl):BÌ = " 

": REM 30 SPAZI 

1540 BC* = CHR* (2):D* = CHRi <4):G1 = CHRi (7):H* = CH 
Ri (8):V1* = CHRi <91):V2t = CHRi (93) 

1550 TEXT : HOME : GOSUB 305 

1540 m = 'DIETA PERSONALIZZATA":Alt = "MENU PRINCIPALE": 
GOSUB 240: RESTARE 

1570 FOR K = 1 TO VI: READ Mi(K): NEXT K 
1580 DATA "INSERIMENTO DATI PERSONALI','INSERIMENT 

0 CIBI",”STAMPA/RICERCA CIBI"."CAMBIA/CANCELLA CIBI',' 
ANALISI NUTRIZIQUALE","VALUTA*1 ONE RICETTE" 

1590 DATA 'DA ASSEGNARE".'FINE PROGRAMMA" 

1400 FOR K = 1 TO VI: 'VTAB (2 * K « 3): HTAB 8: PRINT K:\ 
*:Mt(K): NEXT K 

1410 VTAB 21: HTAB 15: PRINT 'QUALE SCEGLI ? ';Gt;Vl*:* ';V 
2i;Hi:Hi;: NORMAL : GET Y$: PRINT Y1:Y = VAL (Yi): IF 
Y < I OR Y > Vi THEN 1410 

1420 VTAB 2 * Y * 3: HTAB 8: INVERSE : PRINT Yj*. ';M*<Y): 

NORMAL : FOR KK = ! TO 400: NEXT KK 
1430 IF Y = VI THEN 25000 

1440 SX = PEEK (748):DX = PEEK (749): IF SX > 0 OR DX = 2 
THEN 1730 

1450 QQi = 'DRIVE DI LAVORO SLOT 4 DRIVE 1 ? ': POKE 34,0: 
HOME : 'VTAB 12: HTAB 1: GOSUB 505: IF YES THEN SX = 4: 
DX = 1 : GOTO 1720 

1440 TEXT : HOME : 'VTAB 4: CALL - 958: PRINT 'INSERISCI LO 
SLOT N. “:G$:: GET SXi: PRINT SXiìSX = VAL (SX*) 

1470 IF SX < 1 ÒR SX > 7 THEN 1440 
1480 VTAB 8: CALL - 848: PRINT "INSERISCI IL DRIVE N. ":Gi 
:: GET DX* : PRINT DX* : DX = 'VAL (DXi) 

1490 IF (DX - 1) * (DX - 2) < > 0 THEN 1480 
1700 VTAB 10: CALL - 958: PRINT "SLOT f = ":SX: PRINT "ORI 
VE £ = " ; DX: GOSUB 205: IF Yi = "N' THEN 1440 
1710 IF Yi C > "S" THEN 1440 
1720 POKE 746.SX: POKE 749,DX 

1730 ON Y GOTO 2000,3000,10000.4000,5000,3 3000,14000,25000 
2000 REM «ROUTINE DI INTRODUZIONE** 

2010 TEXT : HOME : GOSUB 715 

2020 TEXT : HOME : VTAB 4: HTAB 4: PRlfr "MI SERVE QUALCHE 
DATO PER": 'VTAB 4: HTAB 5: PRINT "STABILIRE IL TUO PES 
9 IDEALE." 

2030 VTAB 9: HTAB 4: PRINT "QUAL"E" LA TUA CORPORATURA MEDI 
A 9": VTAB 11; HTAB B: PRINT ‘S'MALL MvEDlUM L)ARGE ?" 

: VTAB 11: HTAB 34: GET Fi: PRINT Fi: IF Fi = ’S" OR F 
$ = "M" OR Fi = "L" THEN GOTO 2050 
2040 GOTO 2030 

2050 VTAB 13: HTAB 8: PRINT "M)ASCHIO D F)EFMINA VTAB 1 
3: HTAB 34: GET SEX*: PRINT SEXi: IF SEXi = "F" OR SEX 
i = "M" THEN GOTO 2070 
2040 GD T 0 2050 

Continua 
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HO STABILITO IL PESO TOTALE DELLA 
RICETTA 32260 GR OR 1139.9 02 

PER UH CALCOLO PRECISO PUOI CAMBIARE 
IL PESO TOTALE SE C'E‘ STATA QUALCHE 
"API AZIONE NELLA COTTURA 


PESO TOTALE < XXGR 0 XXOZ> ® 
BATTI lawiail SE NULLA CAMBIA 


Figura 9 - Revisione del peso di una preparazione. 


cibo - caaaiH BB 

QUANTITA-TEW 
CONOERSI ONE - i 
CALORIE 100 GR 
PROTEINE GR 
GRASSI GR - lag 
CARBOIDRATI GR 
CALCIO MG - B 
FERRO MG - m 
SODIO MG -H 
UITAMINA A M 
UITAMINA B1 
UITAMINA B2 
NI AC INA MG - 
UITAMINA C M 
COLESTEROLO 


MG - B 

MG - 

mg - ma 
- IMA 
MG - B 
MG - 3S] 


3» = PROSSIMO 
batti IMS PER UN 
batti afilla: per 


SSIMO U = ULTIMO RECORD N 
PER UN Fu RECORD 5 DI 153 
U:«l PER USCIRE® 


Figura 10 - Display esemplificativo dei dati di un cibo. 


ricerca di una specifica voce dovete 
fornire una parola chiave quando vie¬ 
ne richiesta. Per l’esplorazione dell’e¬ 
lenco dei cibi, in tutti i punti in cui si 
trova la parola chiave, occorrono vari 
minuti, per cui avrete anche il tempo 
di andare a prendere un caffè in attesa 
che la ricerca sia conclusa. 

DISPLAY/STAMPA CIBI consen¬ 
te l’esame dei dati relativi a ciascuna 
voce dell’elenco dei cibi. Le righe di 
prompt alla base dello schermo indica¬ 
no che le frecce sinistra e destra spo¬ 
steranno in su e in giù la lista. ESC 
permette di introdurre un altro nume¬ 
ro di record di cibo e RETURN mette 
fine alla rassegna con il ritorno al me¬ 
nù principale. In figura 10 si vede 
stampato un listato di dati. 

Gestione database 
dell’alimentazione 

L’opzione INSERIMENTO CIBI 
del menù principale (figura 1) vi con¬ 
sentirà di ampliare il database. Dopo 
la scelta di questa opzione sarete invi¬ 
tati a BATTERE IL CIBO; dovrete 
rispondere con il nome della voce che 
desiderate inserire (è permesso un 
massimo di 20 caratteri). 

Dovrete poi specificare la misura ti¬ 
po: potete specificare qualsiasi misura 
di porzione, parte o quantità di riferi¬ 
mento. La lista di base dei cibi (vale a 
dire i dati concernenti i 400 cibi che 
figurano sul dischetto di Applicando : 
si veda la rubrica Disk Service per le 
informazioni sull’ordinazione) segue 
la convenzione di peso in grammi o in 
once per la misura standard, per que¬ 
sta voce (vedi figura 13). 

A questo punto viene richiesto di 
BATTERE LA CONVERSIONE. 
Questo numero permette al computer 
di correlare la misura tipica con i dati 
degli elementi nutritivi nella lista. È 
definito come: peso della misura tipo 
in grammi diviso per 100, quindi se la 
misura standard di un cibo è 112 gram¬ 
mi, la conversione sarà 1.12. 

Le 13 voci successive esigono la spe¬ 
cificazione dei dati caratteristici degli 
elementi nutritivi. La prima, BATTI 
CALORIE-100 Gr, vi ricorda di in¬ 
trodurre il numero di calorie di 100 
grammi della parte commestibile del 
cibo indicato. Poi dovrete indicare le 
quantità di elementi nutritivi per 100 
grammi di parte commestibile del cibo 
in oggetto: le unità di misura sono 
espresse in grammi, milligrammi o 
unità internazionali, a seconda di co¬ 
me viene richiesto. Per la lista di base 


dei cibi è stata seguita la convenzione 
che le quantità ignote siano rappresen¬ 
tate con un trattino. 

In figura 13 potete vedere una lista 
completata per 100 grammi di un cibo 
denominato "ipotetico”. La verifica 
dell’esattezza dei dati completa rag¬ 
giunta al database di un'altra voce di 
cibo. Premendo N si possono fare le 
opportune correzioni. 

L'opzione CAMBI A/CANCELLA 
CIBI (figura 1) è facile da usare. Nota¬ 
te che per eliminare un record occorre 
scrivere SI per intero a confermare che 
se ne vuole l’eliminazione. Lo spazio 
lasciato sul dischetto dall’eliminazione 
di una voce è automaticamente colma¬ 
to dall’ultima voce dell'elenco dei cibi. 
Se vi sembra che uno dei vostri cibi 


preferiti, che era stato inserito nella 
lista, sia scomparso, non è il caso di 
disperarsi. Probabilmente è stato spo¬ 
stato in avanti nel file per sostituire 
qualcosa che è stato eliminato. Il pe¬ 
riodico impiego dell'opzione SORT- 
/STAMPA LISTA CIBI vi consentirà 
di mantenere l'ordine. 

Organizzazione 
del programma 

Le prime righe del programma 
DIETA PERSONALIZZATA (linee 
0 - 100 ) visualizzano il titolo e poi l’av¬ 
vertimento che l’uso del programma è 
sconsigliato a chi non ha un’età com- 
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presa fra i 25 e i 50 anni. È inclusa 
anche l’avvertenza di consultare un 
medico. 

Poi il programma salta sopra le su¬ 
broutine (linee 200—1110) per stabili¬ 
re il menù principale (linea 1500). La 
linea 1730 invia il computer alle princi¬ 
pali opzioni del programma e a due 
sottomenù. 

Un’opzione, SORT/STAMPA LI¬ 
STA CIBI (figura 11) richiede una 
gran quantità aggiuntiva di memoria 
per leggere tutti i nomi dalla lista dei 
cibi, al fine di preparare l’operazione 


di ordinamento. Questo programma è 
memorizzato sul dischetto come pro¬ 
gramma separato e sostituisce il pro¬ 
gramma Dieta in memoria quando 
viene richiamata questa opzione. Il 
completamento del listato porta alla 
reinstallazione della Dieta. 

Il programma è ben distribuito sui 
numeri di linea disponibili e alcune 
opzioni DA ASSEGNARE del menù 
conducono ad ampi spazi aperti, quale 
invito all’utente perché fornisca propri 
moduli. 


Osservazioni 

Le informazioni di base sul cibo 
contenute nel file di testo CIBI del 
dischetto sono la pietra migliare del 
programma. Queste informazioni so¬ 
no ricavate da una tavola pubblicata 
dalla società italiana Shoum premiata 
al III incontro tra specialista e medico 
pratico (Castrocaro Terme, 1975) e da 
un vasto elenco pubblicato dal Dipar¬ 
timento dell’Agricoltura degli Stati 
Uniti che elenca la composizione di 
2483 cibi: i dati sono forniti sotto for- 


2070 VTAB 15: PRIMI "PESO E ALTEZZA POSSONO ESSERE MISURATI 
VTAB 17: HTAB 4: NORMAL : PRINT * IN OH1LOGRAMMI 
E CENTIMETRI’: VTAB 18: HTAB 5: PRINT "Q LIBBRE E P 
OLEICI': VTAB 18: HTAB 32: PRINT "?': VTAB 18: HTAB 34 
: GET U$ 

2080 VTAB 17: HTAB 3: PRINT IH: 1F IH = ’C' OR IH = ’L' THE 
N GOTO 2100 
20PO GOTO 2070 

2100 VTAB 20: HTAB 5: INPUT 'LA TUA ALTEZZA E J ':H: VTAB 2 
0: HTAB 5; CALL - 958: PRINT 'LA TUA ALTEZZA E' *:Hj 
' 1F IH = ’C’ THEN PRINT “CENTIMETRI 8 : GOTO 2120 
2110 PRINT ’POLLICI' 

2120 VTAB 23:QQH = ' INFORffcZIONI CORRETTE ? ': G0SUB 505: 

IF N0T YES THEN GOTO 2020 
2130 IF IH = 'C' THEN H = .0328 * H * 12 

2140 G0SUB 590: PRINT GÌ: PRINT Gt: HOME : VTAB 10: HTAB 8: 

PRINT 'IL TUO PESO IDEALE VARIA': HTAB 12: VTAB 12: F 

LASH : PRINT " DA " :UL;' A ';UU; * ’:AAt: PRINT : PRINT 

: PRINT : NORMAL 
2150 G0SUB 785 

2140 TEXT : HOME : VTAB 2: PRINT "SCEGLI IL LIVELLO DELLE T 
UE ATTIVITÀ'': VTAB 4: PRINT 'IN BASE ALLA TABELLA S0T 
T0 RIPORTATA.' 

2170 VTAB 9: PRINT ‘1. RIPOSO (MINIME EMERGIE-N0 ESERCIZIO 
)": VTAB 10: PRINT '2. SEDENTARIO (LAVORO DA SCRIVANIA 
)': VTAB 12: PRINT '3. LEGGERO (STARE IN PIEDI-INSEGNA 
RE)': 'VTAB 14: PRINT '4. MODERATO (CASAL1NG0-G1ARDINAG 
GIOÌ' 

2180 VTAB 16: PRINT ‘5. ATTIVO (LAVORO ATT1V0-SP0RT-DANZA>' 
2190 VTAB 20: INPUT "FAI LA TUA SCELTA DA 1 A 5 ?';AL: IF ( 

AL < 1) OR (AL > 5) THEN HOME : FLASH : VTAB 12: HTAB 

03: PRINT 'LIVELLO DI ATTIVITÀ-' NON PREVISTO': F0R K 
= 1 T0 2000: NEXT K: NORMAL : GOTO 2140 
2200 HOME : G0SUB 480: VTAB 8: HTAB 3: PRINT 'PER MANTENERE 

IL TUO PESO IDEALE,*: PRINT : HTAB 3: PRINT 'DA *:UL: 

’ A ":WU:’ ’:AAt:', DEVI CONSUMARE’: PRINT : HTAB 3: P 
RINT * * :CL;', ';CU:* CALORIE PER GIORNO.' 

2210 G0SUB 785 

2220 HOME :QSt = ‘VUOI QUESTI DATI SALVATI SU DISCO': VTAB 
12: G0SUB 505: IF YES THEN RX = 0:RL = 30:F!LEt = 'DAT 
! PERSONALI DI ' ♦ NAMEi: G0SUB 230: PRINT FI: PRINT S 
EX-»: PRINT UH: PRINT H: PRINT AL: PRINT Dt’CLOSE';FILE 
t: GOTO 2240 
2230 GOTO 2250 

2240 VTAB 16: HTAB 9: PRINT ‘IL TUO FILE SI CHIAMA': PRINT 
: HTAB 8: PRINT FILE»: FOR K = 1 T0 3000: NEXT 
2250 HOME :QQ» = 'VUOI COMINCIARE UN RECORD DI PESO ': VTAB 
12: HTAB 1: GOSUB 505: IF YES THEN RX = 0:RL = 20:FIL 
Et = "RECORD DEL PESO DI ' * NAMEt: GOSUB 230: PRINT R 
.X: PRINT Dt'CLOSE’iFILEt: GOTO 2270 
2260 GOTO 2280 

2270 VTAB 14: HTAB 9: PRINT "IL TUO FILE SI CHIAMA" : PRINT 
: HTAB 10: PRINT FILE»: FOR K = 1 TO 3000: NEXT 
2230 HOME :fiflt = 'VUOI CREARTI UN DATA BASE DI CIBI ’: VTAB 
12: HTAB 1: GOSUB 505: IF YES THEN 2300 
2290 CLEAR : GOTO 1500 

2300 HOME : VTAB 8: PRINT 'SEI SICURO ? QUESTA OPZIONE SI U 
SA": VTAB 10: PRINT 'SE NON HAI ALTRI FILE CHIAMATI*: 
VTAB 12: PRINT "CIBI' SUL TUO DISCO 0 SE DESIDERI’: V 
TAB 14: PRINT 'CREARE UN NUOVO DATA BASE.': 'VTAB 14 
2310 PRINT 'BATTI RETURN PER VEDERE IL CATALOGO': VTAB 18: 

INPUT 'OPPURE SI' PER CREARE IL FILE ’;Yf 
2320 IF Yt < ) 'SI* THEN GOSUB 1105: CLEAR : GOTO 1500 


2330 V = 16: DIM Tt(V),T<2 * V),TV(2 * Vi 
2340 Tt(l) = ' CIBO' :T»<2) = ’ QUANTITÀ" :Tt(3) = ' C»WE 
RSI0NE’:T$(4> = " CALORIE 100 GR’:T$(5) = ' PROTEINE 
GR’:Tt<4) = ’ GRASSI GR*:T»(7) = ' CARBOIDRATI GR*: 
Tt(8> = " CALCIO MG':T»<9) = ’ FERRO MG':Tt(10)= 

' SODIO MG' 

2350 Tt(ll) = 'VITAMINA A MG':T!(12) = 'VITAMINA B1 MG’:T 
t(13) = 'VITAMINA B2 MG" :Tt(14) = ’NIACINA MG':Tt(15 
) = 'VITAMINA C MG':Tt(16) = 'COLESTEROLO MG' 

2360 TV(1) = 20:TV(2) = 20:TV(3) = 6:TV(4) = 6:TV(5) = 6:TV 
(4) = 6:TV(7) = 6:TV(8) = 4:19(9) = 6:TV(10) = 4:TV(1! 

) = 4iTV(12) = 6:19(13) = 6:T9(14) = 4:TV(15) = 6:19(1 
6) = 4 

2370 GOSUB 1025: CLEAR : GOTO 1500 
3000 REM «SUBR0UTINE INSERIMENTO DATA* 

3010 Alt = ' INSERIMENTO DATA ' 

3020 TEXT : HOME : GOSUB 260: GOSUB 985 
3030 HOME : PRINT ; PRINT 'QUESTO SARA' IL RECORD N. 1 ;REC 
3040 VTAB 23: PRINT ‘BATTI RETURN SU ’:: INVERSE : PRINT Tt 
(!);: NORMAL : PRINT ■ PER FINIRE*: VTAB 4 
3050 FOR K = 1 T0 NF 
3060 GOSUB 215 

3070 IF LEN <Pt<l» = 0 THEN 3140 
3080 IF LEN <Pt(K)> < = T9(K) THEN 3100 
3090 PRINT 'INPUT TROPPO LUNGO":Gt;Gt: FOR KK = 1 TO 750: N 
EXT KK: VTAB (CV t 1): HTAB 1: CALL - 958: GOTO 3040 
3100 NEXT K 
3110 GOSUB 205 
3120 IF Yt = 'N' THEN 3210 
3130 IF Yt < > ’S' THEN 3110 
3140 GOSUB 1005 
3150 REC = REC + 1 : GOTO 3030 
3160 REC = REC - 1:RX = 0 
3170 GOSUB 230 
3180 PRINT REC 
3190 PRINT Dt’CLOSE' 

3200 CLEAR : GOTO 1500 

3210 GOSUB 295: PRINT NF * 1 INTERROTTO" 

3220 VTAB 23: HTAB 10: GOSUB 250: PRINT : VTAB 21: PRINT 'B 
ATTI LA LINEA £ DA CORREGGERE: ';Gt; : INPUT 2t:Z = VA 
L (Zt) 

3230 HOME : VTAB 12: HTAB 10: PRINT 'PREGO. CORREGGERE' 

3240 IF Zi = " THEN VTAB 12: HTAB 10: PRINT Bt: GOTO 3140 
3250 IF 2 = NF + 1 THEN 3030 
3260 IF Z < 1 OR Z > NF THEN 3210 

3270 K = 7 

3280 VTAB‘'l8: GOSUB 215 
3290 IF LEN (Pt(K>) < = TV(K) THEN 3310 
3300 PRINT 'INPUT TROPPO LUNGO':3t:Gt: FOR KK = 1 TO 750: N 
EXT KK: VTAB (CV + 1): HTAB 1: CALL - 958: GOTO 3280 
3310 GOTO 3210 

4000 REM «CAMBIA/CANCELLA DATA** 

4010 Alt = ’CAMBIA/CANCELLA DATA' 

4020 TEXT : HOME : GOSUB 240: HOME :FILEt = 'CIBI': GOSUB 3 
20 : RX = 0: GOSUB 275 
4030 INPUT REC 
4040 PRINT Dt’CLOSE'jFILEt 

4050 HOME ; VTAB 23: HTAB 10: GOSUB 250; VTAB 5: PRINT : PR 
INI 'MITI IL NUMERO DEL RECORD : ":Gt;: INPUT RDi 
4040 IF LEN CROI) = 0 THEN CLEAR : GOTO 1500 
4070 RD = INT ( VAL (RDt>): IF RD < =0 THEN 4050 
4080 IF RD < = REC THEN 4100 

4090 PRINT ; PRINT 'HAI SOLO ';REC;' RECORD NEL FILE": PR1 

Continua 
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Se non volete problemi di memoria, 
meglio far lavorare 3M. 



Prodotti per l’Informatica 
Divisione Sistemi per l’Ufficio 

Sede: Via S. Bovio, 1/3 - 20090 Milano S. Felice - Segrate Tel. 02/75451 
Filiali: Tonno Tel 011/6192192 Mestre Tel 041/962255 - Genova Tel. 010/451801 - 
Bologna Tel. 051/557157 - Firenze Tel. 055/355841 - Roma Tel. 06/58421 - Napoli Tel. 081/660266 


I problemi di memoria di 
un’azienda trovano la prima rispo¬ 
sta nella 3M già nel 1951, anno in cui 
la 3M sviluppò il primo nastro ma¬ 
gnetico per computer. 

Questo dato la dice lunga sul 
primato di esperienze tecnologiche 
maturate in questo campo dalla 3M, 
sul patrimonio di qualità e affidabili¬ 
tà della produzione 3M nel settore 
dei supporti magnetici. 

Prendiamo le diskettes, ad 
esempio: omologate dai maggiori 


I DISTRIBUTORI 

AUTORIZZATI IN TUTTA 

I ITALIA 

VEDI PAGINE GIALLE 
ALLA VOCE CENTRI 

I MECCANOGRAFICI 
FORNITURE PER 


costruttori, certificate al 100%, ga¬ 
rantite 5 anni, esportate in tutto il 
mondo, distribuite in Italia attraverso 
una rete capillare di 400 punti ven¬ 
dita. E soprattutto disponibili in una 
gamma completa sia nella misura 
da 8 pollici che in quella da 5 e 1/4, e 
con un esclusivo rivestimento ma¬ 
gnetico che consente un’eccezio¬ 
nale resistenza all’usura e la massi¬ 
ma affidabilità. 3M ha sempre una 
risposta pronta per i vostri 
mi di ufficio. 


E non solo con i prodotti per l'in¬ 
formatica. Ma anche con i sistemi di 
fotocopiatura, microfilmatura, visual 
e di telecomunicazione. 

Perchè 3M lavora offrendo so¬ 
luzioni “ad alta tecnologia" per il vo¬ 
stro ufficio. E per tutti gli uffici. 

3M. SISTEMI 
PER L’UFFICIO 

























Il database CIBI 


ma di calorie, grammi, milligrammi e 
unità internazionali per 100 grammi 
della parte commestibile dei cibi, e 
quindi possono essere forniti diretta- 
mente al file di dati CIBI senza con¬ 
versione. 

Il dischetto che Applicando mette a 
disposizione dei suoi lettori contiene i 
dati per 400 cibi immessi in base alle 
fonti menzionate sopra. Durante il la¬ 
voro di inserimento delle 400 voci mol¬ 
te delle voci che non variavano in mo¬ 
do rilevante sono state ridotte a una 
voce singola media. Altri cibi, che nor¬ 
malmente non vengono consumati 
(carne di balena, Zwieback, renna e 
via dicendo) non sono stati compresi 
nella lista. 


L’uso personale del programma è 
notevolmente migliorato dal fatto che 
voi stessi potete aggiungere, cambiare 
ed eliminare dati sui cibi a seconda 
delle vostre necessità personali. I mo¬ 
duli INSERIMENTO CIBI e CAM- 
BIA/CANCELLA CIBI programma 
“Sistema Base” (Applicando n. 3, 
1983), sono, a nostro avviso, bene 
adatti a questo scopo. Essi sono inclusi 
nel programma rispettivamente alle li¬ 
nee 3000-3310 e 4000-4430. Sono 
comprese lievi modifiche, intese a gui¬ 
dare l’utente in modo un po’ più chiaro 
e a respingere le immissioni errate. 

I dati per i nomi di campo e le lun¬ 


ghezze dei record dei cibi sono definiti 
nelle linee 2330—2360. Questi dati 
vengono poi memorizzati sul dischetto 
(mediante una subroutine a linea 
1025) con il nome CIBI seguito da 
CTRL B. La lunghezza di record di 
140 caratteri permette la memorizza¬ 
zione di circa 400 voci di cibi su mezzo 
dischetto. 

Dati statistici 
personali 

Il peso ideale dell’utente è definito 
in termini di struttura fisica, statura e 
sesso. Le informazioni utilizzate per 


NT : PRINT “BATTI RETURN PER CONTINUARE.':Gì;6$|: INPU 
T YJ; GOTO 4050 

4100 RX = RD: IF RX < = 0 THEN RX = 0 

4110 GOSUB 275; FOR K = 1 TO NF: INPUT PJ(K): NEXT K 

4120 PRINT DJ"CLOSE"jFILEJ 

4130 GOSUB 2P5 

4140 'VTAB 22; CALL - 868: PRINT "CAMBIA/CANCELLA RECORD N. 

1 ;RD:" (S/N) ";GJ;: GET YJ: PRINT Iti IF YJ = "N" THE 
N 4050 

4150 IF YJ < } "S" THEN 4140 

41ó0 LTAB 22; CALL - 868: PRINT "CAMBIA <0, CANCELLA (D), 
0 ESCI (E) ":G$j: GET YJ: PRINT YJ 
4170 IF YJ = "E” THEN 4050 
4180 IF YJ = "C* THEN 4320 
4190 IF YJ < > "D" THEN 4160 

4200 VTAB 22; CALL - 866: PRINT 'QUESTO CIBO VERRÀ' CANCEL 
LATO.’; PRINT ; PRINT "CONFERMI (SI/N0): ";GJi! INPUT 
YJ: IF YJ < > "SI" THEN 4050 
4218 IF RD < > REC THEN 4250 
4220 RX = 0;REC = REC - 1: GOSUB 240; PRINT REC 
4230 PRINT Mj'CLQSE";FILEJ 
4240 GOTO 4050 

4250 RX = REC: GOSUB 275: FOR K = 1 T0 NF: INPUT PJdOì NEX 
T K 

4260 PRINT DJ;"CL0SE*jFILEJ 

4270 RX = RD: GOSUB 230: FOR K = 1 T0 NF: PRINT PJ(K): NEXT 
K 

4280 PRINT DJ : *CL0SE"jFILEJ 

4290 REC = REC - 1 : RX = 0: GOSUB 230: PRINT REC 

4300 PRINT DJj'CLOSE"jFILEJ 

4310 GOTO 4050 

4320 REM «ROUTINE CAMBIA** 

4330 'VTAB 23: HTAB 10: GOSUB 250i PRINT : VTAB 22: CALL - 

868: PRINT 'BATTI IL CAMPO £ DA [AMBIARE: ’jGJj: INPUT 

YJ:Y = VAL (YJ): IF Y = 0 THEN 4410 
4340 NOIE ; VTAB 12: HTAB 10: PRINT 'PREGO CORREGGERE' 

4350 IF INI (Y) < 1 OR INT (Y) > NF THEN 4330 
43Ó0 K = Y 

4370 VTAB 17: GOSUB 215 
4380 IF LEN (PJ(Y)) < = TV(Y) THEN 4400 
4390 VTAB 23: CALL - 868: HTAB 10: PRINT 'INPUT TROPPO LUN 
G0! * :GJ;GJ: FOR KK = 1 T0 500: NEXT KK: VTAB 23: HTAB 
10: GOSUB 250: PRINT : GOTO 4370 
4400 GOSUB 295: GOTO 4330 

4410 RX = RD: GOSUB 230: FOR K = 1 T0 NF: PRINT PJ(K): NEXT 
K 

4420 PRINT DJ'CLOSE"jFILEJ 
4430 GOTO 4050 

5000 REM **MENU DI ANALISI** 

5010 GOSUB 715 

5020 VI = 5:BJ = " ’: REM 30 

SPAZI 

5030 BCj"= CHRJ (2):DJ = CHRJ (4):GJ = CHRJ(7):HJ= CH 
RJ (8):V1J = CHRJ (91):V2J = CHRJ (93) 

5040 TEXT : HOME : GOSUB 305 

5050 AAJ = ' DIETA PERSONALIZZATA ":A!J = “ ANALISI 0 
ELL'ALIMENTAZIONE ": GOSUB 260 
5060 MJU) = "ANALISI Gl0RNAL1ERA":MJ(2) = "ANALISI A LUNGO 


TERMINE’:MJ<3) = "DA ASSEGNARE*:MJ(4) = ’DA ASSEGNARE 
’:MJ(5) = 'MENU PRINCIPALE’ 

5070 FOR K = 1 T0 VI: 'VTAB (2 * K « 4): HTAB 8: PRINT Kj", 

’:MJ(K): NEXT K 

5030 VTAB 19: HTAB 10: PRINT ‘QUALE ? ■jGJjVU;' ’:V2J:HJ:H 
J:ì N0RMAL : GET YJ: PRINT YJ:Y = VAL (YJ): IF Y < 1 
OR Y > VI THEN 5080 

5090 VTAB 2 * Y + 4: HTAB 8: INVERSE : PRINT Y;’. ';MJ(Y>: 

N0RMAL : FOR KK = I T0 400: NEXT KK 
5100 IF Y = VI THEN CLEAR : GOTO 1500 
5110 SX = PEEK (768):DX = PEEK (769) 

5120 ON Y GOTO 6000,7000,8000.9000,1500 
6000 REM ««ANALISI GIORNALIERA*» 

6010 TEXT : HOME : GOSUB 305:AAJ = 'CALCOLO GIORNALIERO’:A1 
J = " CALORIE VITAMINE *: GOSUB 260: VTAB 10: HTAB 5: 
PRINT 'E' IL PRIMO PASTO 0 IL SEGUITO’: VTAB 12: HTAB 
5: PRINT ‘DELLA NUTRIZIONE DI OGGI " 

6030 'VTAB 18: HTAB 6: PRINT ’N)U0VO 0 SJEGUITO ? *:GJ;: GE 
T YJ: PRINT YJ 

6040 IF ((YJ < > ’N’) AND (YJ < > *S*)) THEN 6030 
6050 P0KE 34,0: HOME :FILEJ = "CIBI’: VTAB il: HTAB 10: PR1 
NT ‘STO LEGGENDO I FILE": VTAB 11: HTAB 26 
6070 GOSUB 850 

6080 FOR K = 1 T0 NF:PS(K) = 0:P(K) = 0: NEXT K:NI = 0 
6090 IP YJ = ’S" THEN GOSUB 560: IF YES = 0 THEN HOME : V 
TAB 3: PRINT "DEVI RICOMINCIARE DA CAPO PER OGGI’: G0S 
UB 785: CLEAR : GOTO 1500 
6100 GOSUB 930 

6110 IF LEN (A$> = 0 THEN 6160 
6120 IF ER THEN GOTO 6100 
6130 GOSUB 960 

6140 IF NI = 20 THEN GOSUB 975: 'VTAB 15: PRINT "FINISCI QU 
ESTÀ SESSIONE E COMINCIANE’ : 'VTAB 17: PRINT 'UN'ALTRA 
SE 'HAI ALTRI CIBI DA VALUTARE GOSUB 785 
6150 IF NI < 20 THEN 6100 

6160 TEXT : HOME :AAJ = ’ LISTA DEI CIBI *:A1J = " 01 Q 
IJESTA SESSIONE GOSUB 260: GOSUB 520 
6170 IF YES = 0 THEN TEXT ; HOME : VTAB 10: HTAB 11: PRINT 
■SESSIONE INTERROTTA": VTAB 12: HTAB 15: PRINT "RIC0M 
INDIARE’; POR K = ! T0 3000: NEXT K: CLEAR : GOTO 1500 
6180 0GJ = 'DIMENTICATO NIENTE ? * : TEXT : HOME : VTAB 12: 

HTAB 09: GOSUB 505: IF YES THEN 6100 
6190 QQJ = "VUOI IL TOTALE NUTRITIVO ? * : HOME : VTAB 12: H 
TAB 2: GOSUB 505: IF YES T HEN GOSUB 530 
6200 QQJ = "MANDERAI ANCORA OGGI ? * : (VTAB 23: HTAB 5: GOSU 
B 505: IF YES THEN GOSUB 545: HOME : VTAB 11: PRINT ’ 
IL TOTALE DELLE CALORIE SALVATO SU DISCO": FOR K = ! T 
0 1500: NEXT 

6210 IF YES THEN HOME : VTAB 10: HTAB 1: PRINT ‘DOPO TI DA 
R0' IL REP0RT GIORNALIERO’: FOR K = ! T0 1500: NEXT 
6220 GOSUB 835 
6230 !F YES THEN 6250 

6240 HOME : 'VTAB 12: PRINT 'INSERISCI LA DATA E IL PESO DI 
OGGI.": FOR K = 1 T0 1500: NEXT : GOSUB 725-.YES = 0 
6250 REM **IPES0 IDEALE E BISOGNO DI CALORIE** 

6260 GOSUB 680:UI = INT XUTT + .5) :CI = ( INT (CC>): HOME 
6270 IF YES THEN 6430 

6280 REM «PESO ATTUALE E BISOGNO 01 CALORIE** 

Continua 
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stabilire le relazioni che stimano il pe¬ 
so ideale provengono dalla Metropoli¬ 
tan Life Insurance Company e sono 
quelle pubblicate nella Sezione IX del 
Nutrition Almanac. 

I dati statistici personali dell’utente 
vengono chiesti a cominciare dalla li¬ 
nea 2000. Dopo aver stabilito questi 
parametri, definendo la scelta delle 
unità di misura fatta dall’utente, e re¬ 
spingendo gli utenti che sono troppo 
piccoli o troppo alti (linea 605) si ha la 
stima del peso ideale dell’utente da 
parte della subroutine a linea 590. 

Dopo la visualizzazione dell’arco di 
peso ideale dell’utente (linea 2140) 
viene chiesto all’utente di fornire una 
stima del livello di attività. (Queste 
informazioni provengono dalla Sezio¬ 
ne IX del Nutrition Almanac. In quella 
sede viene data un’ulteriore spiegazio¬ 
ne dei cinque livelli di attività, come 
pure delle esigenze caloriche per unità 
di peso corporeo ai vari livelli di attivi¬ 
tà). La subroutine a linea 680 stima il 
consumo di calorie occorrente solo per 
mantenere il peso ideale. 

All’utente viene poi chiesto il suo 
nome, e i dati appena raccolti sono 
memorizzati in un file di testo denomi¬ 
nato DATI PERSONALI DI, seguito 
dal nome che è stato inserito. Queste 
informazioni sono utilizzate in molte 
altre parti del programma per stabilire 
le caratteristiche personali dell’uten¬ 
te. 

La linea 2250 chiede se si voglia un 
nuovo record del peso. Premendo S si 
istituisce un file di testo, identificato 
da RECORD DEL PESO DI, segui¬ 
to, anche questa volta, dal nome del¬ 
l’utente. Esso viene utilizzato per me¬ 
morizzare il peso giornaliero dell’u¬ 
tente, il consumo di calorie e la data. 
Premendo N si lascia immutato il re¬ 
cord. Queste opzioni consentono di 
cominciare da capo se l’appetito pre¬ 
vale sulla volontà. 


L’analisi 

dell’alimentazione 

L’opzione ANALISI DELLA NU¬ 
TRIZIONE (figura 1) porta a un sot¬ 
tomenù (figura 3) che comprende il 
modulo chiave del programma ANA- 
LISI GIORNALIERA (linee 
6000-6500). 

La progettazione di questa parte del 
programma ha richiesto un’attenta 
considerazione della capacità del com¬ 
puter, dell’intelligenza umana e dei 
nostri limiti nella programmazione per 
giungere a un mezzo di facile uso in 



Figura 11 - Scelte di visualizzazione dei dati. 
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Figura 12 - Rapporto elementi nutritivi. 
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Figura 13 - Immissione esemplificativa dei dati di un cibo. 
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grado di ottenere l’accesso interattivo 
ai dati dei cibi. Malgrado il BASIC sia 
lento nella ricerca delle voci in una 
lista, abbiamo deciso ugualmente di 
non ricorrere al linguaggio macchina 
per la ricerca dei dati e di delegare il 
compito alle capacità umane di ap¬ 
prendimento ed esplorazione. Il com¬ 
puter vi assiste però in questo compito 
provvedendo a fornirvi, di tanto in 
tanto, un elenco alfabetico stampato 
dei cibi con i corrispondenti numeri di 
record. Alla ricezione del numero di 
record i dati vengono rapidamente re¬ 
cuperati dal computer, viene chiesta 
l’entità della porzione e vengono ag¬ 
giunti al totale gli elementi nutritivi. 


Alla scelta di questa opzione 
(ANALISI GIORNALIERA) l’uten¬ 
te è invitato a dire se inizia un "nuovo" 
record giornaliero o continua un re¬ 
cord iniziato in precedenza. Se si sce¬ 
glie N, a indicare la prima introduzio¬ 
ne per una giornata, il programma az¬ 
zera le variabili che sommano gli ele¬ 
menti nutritivi (linea 6080) e va avanti 
a linea 6100. 

L’indicazione che il record continua 
ha come risultato il trasferimento (li¬ 
nea 6090) a una subroutine (linee 
560—585) che legge i totali degli ele¬ 
menti nutritivi memorizzati sul di¬ 
schetto in un file chiamato ALIMEN¬ 
TAZIONE PARZIALE DI seguito 


come sempre dal nome dell’utente. 
Vengono visualizzati sullo schermo i 
totali per la prima parte della giornata. 
E inoltre visualizzata sullo schermo, 
come promemoria, l’ultima voce di ci¬ 
bo introdotta nella precedente seduta 
e, una volta che l’utente richiama l’ul¬ 
tima voce, il controllo del programma 
va avanti a linea 6100. 

E richiamata dalla linea 6100 una 
subroutine (linea 930) che chiede un 
numero di record di cibo. Dopo aver 
controllato la validità del numero, la 
subroutine legge dal dischetto (linea 
860) i dati relativi al cibo specificato, 
chiede l’entità della porzione (linee 
875—895), controlla se ci siano errori, 


6290 UA = INTIMALO#»)): 

4300 CA = (UA / 2.2) * CK: !F U$ = “C THEN CA = UA * CK 
4310 UN* = ■LIBBRE": IF Ut = "C THEN UN* = "CHlLOGRAftH" 
4320 CU = (CA - PS(4>) * 7 / 3500:.!F U* = "C" THEN CU = CU 
/ 2.2 

4330 CH* = ■PERO!": IF Ol < 0 THEN CH* = "GUADAGNI" 

4340 CU = ABS (CU):CU = ( 1NT (CU * 10) / 10) 

4350 VTAB 2: PR1NT "HA! CONSUMATO ": INI (PS(4)):" CALORIE" 
: VTAB 5: PRINT "CON UNA NUTRIZIONE COME QUELLA DI OGG 
I": PRINT : PRINT "IN UNA SETTIMANA ";CH*;" CIRCA": PR 
INT ; PRINT "*;CU;" "jUN*:",' 

4340 VTAB II: PRINT "HAI BISOGNO D! CIRCA "jCI;" CALORIE PE 
R": VTAB 13: PRINT "MANTENERE IL TUO PESO IDEALE DI "j 
U1I : VTAB 15: PRINT UN*;"." 

4370 'VTAB 17: PRINT "MANGIANDO INT (CA);" PER GIORNO MAN 
TERRAI": VTAB 19: PRINT "IL TUO ATTUALE PESO DI ";UAj" 
":UN* 

4380 G0SUB 785 

4390 PR = INT (100 * 4 * PSC5) / PS(4)):FA = INT (100 * 9 
* PSI4) / PS(4)):CB = (100 - PR - FA): HOME 
4400 'VTAB 2: PRINT "LE CALORIE CHE HAI CONSUMATO OGGI ": VT 
AB 4: PRINT "SONO COMPOSTE DA:": 'VTAB 4: PRINT TABI 1 
2) : * CARBOIDRATI * j TAB( 25) :CB; "T<" : VTAB 8: PRINT TABI 
1?) SGRASSI "• TAR < 75) ■Ftì 1 "/" 

4410 'VTAB 10: PRINT’ TABI 12>]"PROTEINE" : TAB( 25)iPR:"5C": 
VTAB 12: PRINT "PER UNA CORRETTA ALIMENTAZIONE SI ": V 
TAB 14: PRINT "SUGGERISCONO LE SEGUENTI PERCENTUALI:": 
VTAB 14: PRINT TAB( 12);"CARBOIDRATI * ; TAB( 25);"50X 

4420 'VTAB 18; PRINT TAB( 12) : "GRASSI" : TAB( 25) :"30M" : VTA 
B 20: PRINT TAB( 12) ; "PROTEINE* : TAB( 25); J 2QX": G0SU 
B 785 

4430 F0R K = 4 T0 NF; READ PSt(K): NEXT 
4440 DATA "CALORIE". "PROTEINE","GRASSI*,"CARBOIDRATI", * 
CALCIO", "FERRO".‘SODIO", "VITAMINA A", "VITAMINA 6". 
"VITAMINA B1"."N1AC1NA, VITAMINA C°,"COLESTEROLO" 

4450 DIM NU(NF): GfiSUB 905: S0SUB 785 

4440 IF YES THEN HOME : 'VTAB 10: HTAB 9: PRINT "ARRIVEDERC 

I A PIU' TARDI": END 

4470 RX = 0:RL = 20.-FILE* = "RECORD DEL PESO DI * ♦ fWMEt: 
G0SUB 275: INPUT DY: PRINT D*"CL0SE*;FILE*:RX = DY + 1 
: G0SUB 230: PRINT INT (PS(4)): PRINT DA*: PRINT UA: 
PRINT D*"CL0SE":FILE* 

4480 RX = 0: G0SUB 230: PRINT DY * 1 : PRINT DVCL06E"[FILE* 

4490 TEXT : HOME : VTAB IO: PRINT "HO SALVATO IL TUO PESO, 

LA DATA E': VTAB 12: PRINT "IL TOTALE DELLE CALORIE CO 
NSUNATE OGGI": VTAB 14: PRINT "PER FUTURE REFERENZE" 
4500 VTAB 18: PRINT G*:G*;G*: PRINT "BUONANOTTE " + NAME*;* 
. ARRIVEDERCI A DÓfttNI": END 
7000 REM *«ANALISI A LUNGO TERMINE»* 

7010 TEXT : HOME : 'VTAB 12: HTAB 2: PRINT "UN ATTIMO DI PAZ 
IBIZA. S T G LAVORANDO." 

7020 RX = 0:RL = 20:FILE* = "RECORD DEL PESO DI ’ * NAME*:M 
V* = "DEVI COMPLETARE L'OPZIONE 1 DEL MENU E SALVARE 
ALMENO UN PASTO PARZIALE": S0SUB 271: GOSliB 275: INPUT 
DY: PRINT D*"CL0SE"jF!LE*: DIM UZ(DY) 

7030 IF DY = G THEN HOME : VTAB 10: PRINT "NON HAI STABILI 
T0 UN PESO RECORD DI ": VTAB 12: HTAB 17: PRINT NAME*: 


F0R K = 1 T0 2500: NEXT K: GOTO 5020 
7040 PRINT D*"0PEN";FILE*" ,L" ;RL;",S";SX;",D";DX:C = 0:U = 

0 

7050 F0R K = 1 T0 DY:RX = K: GOSUB 2B5; INPUT PS(4),DA1,U2< 
K):C = C + PS(4):U = U ♦ WZ(K): NEXT K: PRINT Dt’CLOSE 
"jFILE* 

7040 0 = 0 / DY:UX = UZ(1) - UZ(DY):W = U / DY 

7070 GOSUB 835: REM «CARICA DATI PERSONALI** 

7080 GOSUB 430: REM «PESO IDEALE E CALORIE** 

7090 WI = INT (UT « .5):CI = INT (CC + .5) 

7100 UN* = "LIBBRE": IF Ut = "C" THEN UN* = "CHILI" 

7110 CH* = "PERSO": IF WL < 0 THEN CH* = "PRESO" 

7120 REM 
7130 GOSUB 7B5 

7140 TEXT : HOME : PRINT "NEL PERIODO DI ":DY:" GIORNI, FIN 
ITO IL": 'VTAB 3: PRINT "IL ";DA*:" HAi CONSUMATO Uftt M 
EDIA DI ": VTAB 5: PRINT INT (0);" CALORIE AL GIORNO. 

I 

7150 VTAB S: PRINT "IL TUO CORPO HA BISOGNO DI ASSIMILARE": 
VTAB 10: PRINT CI:” CALORIE AL GIORNO PER MANTENERE": 
< VTAB 12: PRINT "IL TUO PESO IDEALE DI ";UIj" "jUN*;". 

7140 VTAB 15: PRINT "LA MEDIA DEL PESO MANTENUTO NEL PERI0D 
0": VTAB 17: PRINT "E' STATA DI *:U:* " :UNt:\“IN Q 
UESTI ": 'VTAB 19: PRINT DY;" GIORNI HAI "jCH*;" ABS 
(UX);" ";UN*:‘." 

7170 GOSUB 765: CLEAR ; GOTO 1500 
8000 REM «DA ASSEGNARE** 

8010 TEXT : HOME : VTAB IO: PRINT "DA ASSEGNARE DALLA LINEA 
8010": GOSUB 785: GOTO 5040 
9000 REM «PA ASSEGNARE** 

9010 TEXT : HOME : VTAB 10: PRINT "DA ASSEGNARE DALLA LINEA 
9010": GOSUB 785: GOTO 5040 
10000 REM «DISPLAY DATA SUB MENU** 

IODIO Vi = 5:8* = " ": REM 3 

0 SPAZI 

10020 BC* = CHR» (2):D* = CHR* (4):S* = CHR* C7):H* = C 
HR* (8):V1* = CHR* (91):V2* = CHR* (93) 

10030 TEXT : HCME : GOSUB 305 

10040 AA* = " STAMPA/RiCERCA CIBI ":A1* = " MENU 

* : GOSUB 240 

10050 M*(l) = "D1SPLAY/STAMPA CIB3"iM*(2) = 'RICERCA CIBI " 
:M*<3) = “SGRT/STAMPA LISTA CIBI":M*(4) = "VALUTA2I0N 
E NUTRIZIONALE’:M*(5) = "MENU PRINCIPALE" 

10040 F0R K = 1 TQ VI: 'VTAB <2 * K + 4): HTAB 8: PRINT K;\ 

";M*(K): NEXT K 

10070 VTAB 1S: HTAB 20: PRINT “QUALE ? ";G*:V1*;" ";V2*;H*; 
HI:: N0RHAL : GET Yt: PRINT Y*:Y = VAL dì): IF Y < 

1 OR Y > VI THEN 10070 

10080 VTAB 2 * Y + 4; HTAB B: INVERSE : PRINT Y;". ";M*(Y): 

N0RMAL ; F0R KK = 1 T0 400: NEXT KK 
I009C IF Y = V! THEN CLEAR : GOTO 1500 
•0100 3X = PEEK (748):DX = PEEK (749) 

10110 0N Y GOTO 10500.11000,12000,12500,1500 
10500 REM ««DISPLAY/STAMPA DATI** 

10510 Al* = * DISPLAY/STAMPA CIBI " 

10520 TEXT : HCME : GOSUB 240: HOME :FILE* = "CIBI": GOSUB 
320:RX = 0: GOSUB 275 

10530 INPUT REC ^ . 

Continua 
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estrae la scelta di unità fatta dall’uten¬ 
te (linee 450-500) e restituisce il con¬ 
trollo al programma principale a linea 
6110. 

Gli errori nell’introduzione dei dati 
portano alla ripetizione della richiesta 
di un numero di record di cibo (linea 
6120), e battendo RETURN si mette 
fine alla seduta di introduzione delle 
voci di cibo. 

La linea 6130 richiama una subrou¬ 
tine (linea 960) che aggiunge al totale 
gli elementi nutritivi. La linea 6140 
avverte l’utente nel caso che le voci di 
cibo superino quanto può essere visua¬ 
lizzato sullo schermo. Dopo la visua¬ 
lizzazione della lista dei cibi (linea 
6160) e della lista opzionale degli ele¬ 


menti nutritivi (linea 6190) viene chie¬ 
sto all’utente se mangerà altro nel cor¬ 
so della giornata (linea 6200). Pre¬ 
mendo S si fa sapere al computer che 
deve memorizzare sul dischetto il tota¬ 
le degli elementi nutritivi, per il recu¬ 
pero in un momento successivo. A ciò 
provvede la subroutine a linea 545 che 
istituisce il file di testo ALIMENTA¬ 
ZIONE PARZIALE DI, seguito dal 
nome dell’utente attuale. 

Il controllo passa poi tramite la linea 
6270 alla subroutine a linea 835, che 
legge dal dischetto i dati personali del¬ 
l’utente. Quindi salta, dato che la va¬ 
riabile YES è stata impostata su vero 
(linee 6200- 6250) alla routine del pe¬ 
so ideale (linea 6250) e infine stampa 


un rapporto provvisorio (linee 
6340—6460) per mettere fine alla se¬ 
duta di immissione dei cibi e fermare il 
programma. 

Un messaggio avvisa l’utente del 
consumo totale di calorie ed elementi 
nutritivi fino a quel punto della giorna¬ 
ta, sotto forma di percentuale dell’in¬ 
gestione di elementi nutritivi richiesta 
solo per mantenere il peso al livello di 
attività specificato nei dati personali. 

Rispondendo N alla domanda 
"Mangerai ancora oggi?" (linea 6200) 
si fa scattare un più complesso rappor¬ 
to di alimentazione di fine giornata. 
Per prima cosa la linea 6240 richiama 
una subroutine a linea 725 che chiede 
la data e il peso attuale dell’utente. Le 


10540 PRIMI DI'CLOSE';FILEI 

10550 HOME : UTAB 6: PR1NT NUDI L'USCITA SU STtflPWTE <S/N 
) 0 ;GI;: GET Yl: PRINT Yl: IF Yl = ’N" THEN SLOT = 0: 
GOTO 10440 

10540 1F Yl < > ’S" THEN 10550 

10570 UTAB 10: CALL - 668: PRINT "SLOT DELLA STfWWTE : 1 
:G1;: GET SLI: PRINT SLKSLOT = MAL (SLI) 

10580 IF Yl = CHR$ (27) OR Yl = OHM (32) THEN CLEAR : G 
0T0 1500 

10590 IF SLOT < 1 OR SLOT > 7 THEN PRINT GljGI; GOTO 10570 
10600 PRINT : PRINT 'ACCENDI LA STAMPANTE.': PRINT 'BATTI " 
;; IMMERSE : PRINT 'RETURN';: N0RMAL : PRINT ' QUtfJDO 
SEI PRONTO ';G1: : INPUT Yl 
10610 PRINT DI'PRt";SLÒT 
10620 PRINT 
10630 PRINT DI'PR£0' 

10640 HOME : VTAB 22: HTAB 10: G0SUB 250: UTAB 7: PRINT 
10650 PRINT 'MIDEO(M) 0 STMPA(P) DEI CIBI ':G1:: GET UP1: 
PRINT URI: IF UPI = CHRI (13) THEN CLEAR : GOTO 150 
0 

10660 PRINT : CALL - 958: PRINT 'RECORD DA DOME MU0I INIZI 
ARE ’;GI:: INPUT STARTI:RX = MAL (STARTI) 

10670 IF RX > REC THEN PRINT 'HAI SOLO ';REC;' RECORD NEL 
FILE":GI;GI: GOTO 10660 
10680 IF RX ! 1 THEN RX = 1 
10690 G0SUB 275 

10700 F0R K = ! T0 NF: INPUT PI(K): NEXT K 
10710 IF MPI = ’S' THEN PRINT DI'PR£'; SLOT : PRINT : PRINT 
■RECORD £ ';RX 
10720 G0SUB 295 
10730 PRINT DI'PRfO' 

10740 PRINT DI'CLOSE"; FI LEI 

10750 UTAB 22: IMMERSE : PRINT NORMAL : PRINT ' = P 

R0SSIM0 ';: IMMERSE : PRINT NORMAL ; PRINT 

' = ULTIMO '; TA8( 30);'RECORD N. 

10760 UTAB 23: PRINT 'BATTI IMMERSE : PRINT 'ESC';: N0R 
MAL : PRINT ' PER UN N. RECORD '; TAB( 30);RX;' DI 
REC ii" 

10770 G0SUB 250: PRINT Gl;: CALL - 868: GET Yl: PRINT Yl: 
IF Yl = CHRI (3) THEN END 

10780 IF Yl = CHRI (27) THEN UTAB 24: CALL - 868: PRINT 

■NUMERO DI RECORD ? " ;GI; : INPUT RX: GOTO 10670 
10790 IF Yl = CHRI (8) THEN RX = RX - 2: GOTO 10830 

10800 IF Yl = CHRI (13) THEN 10640 

10810 IF Yl = CHRI (21) OR Yl = CHRI (32) THEN 10830 

10820 GOTO 10750 
10830 RX = RX 4 1: GOTO 10670 
11000 REM «RICERCA CIBI** 

11010 All = * RICERCA CIBI 

11020 TEXT : HOME : G0SUB 260: HOME :F1LE1 = 'CIBI': G0SUB 
320 :RX = 0: G0SUB 275 
11030 INPUT REC 
11040 PRINT DI'CLOSE':F!LEI 
11050 DIM SRTKREC + l).SOX(REC) 

11060 PRINT DI'OPEN'FILEI'.L'jRLj'.S'jSXi'.D'iPX 

11070 FOR K = 1 T0 REC:RX = K: G0SUB 285: INPUT SRTKK):S07. 

(K) = K: NEXT K 
11080 PRINT DI'CLOSE'FILEt 


11090 TEXT : HOME : G0SUB 305: UTAB 4: HTAB 14: PRINT 'RICE 
RCA CIBI': 'UTAB 6: HTAB 3: PRINT 'PUOI LISTARE TUTTI 
I CIBI REGOLANDO": UTAB 8: HTAB 3: PRINT 'LA UEL0CITA 
' CON LA PADDLE 1 ’ 

11093 UTAB 10: HTAB 3: PRINT 'OPPURE BLOCCANDO L'IMMAGINE C 
0N": UTAB 12: HTAB 3: PRINT 'CTRL-S.' 

11095 UTAB 14: HTAB 3: PRINT 'PER LNA RICERCA CON PAROLE CH 
1AUE": UTAB 16: HTAB 3: PRINT 'CI MORRA' QUALCHE MINU 
TO.’i UTAB 20: HTAB 8: PRINT 'DISTA 0 R)ICERCA ': UT 
AB 20: HTAB 26: INPUT Yl: IF Yl = ’R' THEN 11150 
11100 IF Yl ( ) 'L' AND Yl ( > *R* THEN 11095 
11110 .TEXT : HOME 

11115 K = INT (REC / 2): REM «* NUMERO DI LINEA 
11120 FOR J = 1 T0 K: SPEED= PDL (1): PRINT LEFTI (SRTK2 
» J - 1 ),19); TAB( 21); LEFTI (SRTK2 * J),19): PRIN 
T : NEXT J 

11125 IF (K < REC / 2) THEN PRINT LEFTI (SRTK2 * K + 1), 
19) 

11130 SPEED= 255 

11140 PRINT : G0SUB 785: GOTO 11090 
11150 REM CONTINUE 

11160 TEXT ; HOME : 'UTAB 11: HTAB 8: INPUT 'CHIAME DI R1CER 

CA ? ' : ZI : L = LEN (21): IF L > 20 THEN UTAB 13: HTA 

B 08: PRINT 'INPUT TROPPO LUNGO !': FOR J = 1 T0 1000 
: NEXT J: GOTO 11160 

11170 UTAB 2: HTAB 14: FLASH : PRINT 'STO CERCFWDO': P0KE 3 
4.3: NORMAL : HOME 
11180 FOR J = 1 TO REC 
11190 LS = LEN (SRTKJ» 

11200 IF LS < L THEN 11240 

11210 FOR I = 1 T0 (LS - L + l):Yt = MIDI (SRTKJ),I,L): 1 

F Yl < >21 THEN 11230 

11220 PRINT TAB( 6);S0X(J>; TAB( 10);SRTKJ) 

11230 NEXT ! 

11240 NEXT J 

11250 UTAB 23: HTAB 6: PRINT 'UN'ALTRA RICERCA ? (S/N) ": G 
ET Yl: IF Yl = 'S* THEN 11160 
11260 IF Yl = 'N' THEN CLEAR : GOTO 1500 
11270 GOTO 11250 

12000 TEXT : REM «STAMPA LISTA CIBI UTILIZZATORE** 

12010 HOME : IMMERSE : UTAB 10: HTAB 7: PRINT 'STO CARIDW) 
0 IL FILE S0RT': NORMAL 
12020 PRINT Dli'RUN SORT.S'SX'.D'DX 
12500 REM « PERCENTUALI BISOGNO GIORNALIERO** 

12510 P0KE 34,0: G0SUB 715: G0SUB 835:F1LE4 = 'CIBI*: GOSUB 
850 

12520 TEXT : HOME : UTAB 8: PRINT 'UNA MOLTA SCELTO IL NUME 
R0 DI RECORD': 'UTAB 10: PRINT 'DEI CIBI UTILIZZATI ME 
RRtfKO ': 'UTAB 12: PRINT 'ELENCATE LE PERCENTUALI DEI 
TUOI': UTAB 14: PRINT 'BISOGNI GIORNALIERI RAPPORTAI 
I AL' 

12530 UTAB 16: PRINT 'PASTO SCELTO.': GOSUB 680:C1 = CC: DI 
M NU(NF) 

12540 FOR K = 4 TO NF: READ PSKK): NEXT : GOSUB 785 
12550 DATA "CALORIE', "PROTEINE*.'GRASSI'.'CARBOIDRATI'.' 
CALCIO' 'FERRO',"SODIO', 'UITAMINA A*. 'VITAM1M B 1 , 
“VITAMINA Bl\"NIACINA' 'UITAMINA C'/COLESTEROLO' 
12560 HOME : UTAB 20: PRINT GI;GI: UTAB 20: HTAB 9: INPUT ' 
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esigenze di calorie dell’utente per 
mantenere il peso ideale e il suo peso 
effettivo sono calcolati rispettivamen¬ 
te alle linee 6260 e 6300. 

Il guadagno o la perdita di peso pre¬ 
visti dell’utente sono calcolati a linea 
6320 sulla base dell’approssimazione 
che un eccesso o un difetto di 3.500 
calorie avrà come conseguenza un 
cambiamento di peso di circa mezzo 
chilo. Poi queste informazioni vengo¬ 
no visualizzate (linee 6350—6380). 

Le linee 6390-6420 visualizzano la 
percentuale di calorie consumate nella 
giornata derivate da proteine, carboi¬ 
drati e grassi. Viene fatto un raffronto 
con le raccomandazioni dell’Ameri- 
can Medicai Association (5). L’algo¬ 


ritmo a linea 6390, che fornisce le ci¬ 
fre, è basato sull’approssimazione che 
un grammo di proteina o carboidrato 
dia quattro calorie, mentre un gram¬ 
mo di grasso darà nove calorie. 

Il lettore dall’occhio acuto (o muni¬ 
to di matita) rileverà forse dai display 
(per esempio quelli delle figure 14,12 
e 7) che ci sono lievi discrepanze. Ciò è 
dovuto al fatto che il numero di calorie 
per 100 grammi di cibo memorizzato 
sul dischetto si-basa sulla relazione fra 
calorie e peso degli elementi nutritivi 
già vista. I dati inseriti però mostrano 
una variazione discretamente ampia 
del numero di calorie derivato in vari 
cibi da un grammo di proteina o di 
carboidrato: non si tratta di errori ma 


del risultato di una lunga serie di speri¬ 
mentazioni pratiche che sono state ef¬ 
fettuate negli USA. 

Ne segue che un punteggio perfetto 
(cioè il 100% delle esigenze quotidia¬ 
ne di calorie, proteine, carboidrati e 
grassi) sarà quasi impossibile da otte¬ 
nere e che non vale la pena di perse¬ 
guirlo. Infine, per mettere termine al¬ 
la trattazione dell’ANALISI GIOR¬ 
NALIERA, il totale delle calorie con¬ 
sumate nella giornata, la data e il peso 
effettivo dell’utente sono memorizzati 
sul dischetto nel file RECORD DEL 
PESO DI, seguito dal nome dell’uten¬ 
te (linea 6470) e il computer chiude 
per la giornata. 

L’opzione ANALISI A LUNGO 


12570 


12580 

12590 

12800 

12810 

12820 

12830 


12840 

13000 

13010 


13020 


13030 


13040 


13050 

13080 

13070 

13080 


13085 

13090 

13100 

13110 


13120 


13130 

13140 


13145 

13150 


13180 


NUMERO DI RECORD ? ';A*: VTAB 20: HTAB 34 
RX = VAL (Al): IF <<RX < 1) OR <RX > REC)) THEN H0M 
E : VTAB 18: INVERSE : HTAB 5: PRINT "MI SOLO *:REC; 
’ RECORD NEL FILE CIBI 1 : N0RMAL : F0R K = 1 T0 2000: 
NEXT K: GOTO 12580 

G0SUB 885: FOR K = 4 T0 NF:P<K> = VAL (P?<K)):PS(K> 

= PUÒ * CO: NEXT K 
G0SUB 905 

IF ER = 1 THEN Al = Al * ' * ' + Pl(l) 

VTAB 20: HTAB 10: PRINT P$(l)s VTAB 21: HTAB 10: PR1N 
T Al 

G0SUB 785 

TEXT : HOME : VTAB 10: HTAB 4:001 = 'VUOI VALUTARE UN 
ALTR0CIB0 ? ': G0SUB 505: IF YES THEN HOME : GOTO 1 
2580 

HOME : CLEAR : GOTO 1500 
REM ««VALUTAZIONE RICETTE** 

TEXT : HOME : VTAB 5: PRINT 'QUESTA OPZIONE PERMETTE 
DI STABILIRE": VTAB 7: PRINT "IL VALORE NUTRITIVO CON 
TENUTO IN UNA': VTAB 9: PRINT 'QUALSIASI RICETTA. I D 
ATI VERRAKN0 POI' 

VTAB 11: PRINT 'SALVATI SU DISCO COME UN NORMALE CIBO 
': VTAB 13: PRINT 'DA POTER USARE IN FUTURE ANALISI': 
VTAB 15: PRINT 'NUTRIZIOWLI.' 

VTAB 18: PRINT 'GLI INGREDIENTI DA USARE NELLA RICETT 
A': VTAB 20: PRINT 'DEVONO ESSERE DISPONIBILI NEL FIL 
E CIBI■ G0SUB 785 

HOME : ' GOSUB 985: VTAB 8: PRINT 'INSERISCI IL NUMERO 
DI RECORD E LE': VTAB 10: PRINT "QUANTITÀ' DE! CIBI P 
REVISTI NELLA': VTAB 12: PRINT 'RICETTA.': G0SUB 785 
DIM PS(NF),P(NF),PS1<20),CS1(20)ì F0R K = 1 T0 NF:PS< 
K) = 0:P<K) = 0: NEXT K:NI = 0:UJA = 0 


G0SUB 930 

IF LEN (Al) = 0 THEN 13140 

IF ER THEN PRINT : CALL - 958: PRINT Gl:'SOLO INPUT 
NUMERICI': PRINT 'PREGO, BATTERE IL NUMERO DEL CIBO 
': G0SUB 785:NI = NI - li GOTO 13080 
IF CO = 0 THEN NI = NI - 1 : GOTO 13080 
UA = UA * CO * 100 
G0SUB 980 

IF NI = 20 THEN G0SUB 975: VTAB 10: PRINT 'PUOI SALV 
ARE I CIBI INSERITI COME*: VTAB 12: PRINT “UNA PARTE 
DELLA RICETTA PER POI': VTAB 14: PRINT 'COMINCIARE UN 
'ALTRA SESSIONE PER': VTAB 18: PRINT 'COMPLETARLA." 

IF NI = 20 THEN VTAB 19: PRINT 'DOVRAI POI RICHIAMAR 
E ENTRAMBE LE": VTAB 21 : PRINT 'VOCI QUANDO MANGERAI 
QUESTO PIATTO.': G0SUB 785 
IF NI < 20 THEN 13080 

TEXT : HOME :AA! = ' LISTA DEI CIBI ':A11 = ' IN 
QUESTA RICETTA ': G0SUB 280: G0SUB 520: IF YES THEN 
13150 

HOME : CLEAR : GOTO 1500 

TEXT : HOME : VTAB 4; PRINT 'HO STABILITO IL PESO TOT 
ALE DELLA": VTAB 8: PRINT 'RICETTA : '; INT <UA)j' GR 
OR ': INT (UA / 2,83) / 10;* 02' 

VTAB 9: PRINT “PER UN CALCOLO PRECISO PUOI CAMBIARE': 
VTAB 11: PRINT "IL PESO TOTALE SE C'E' STATA QUALCHE 
■: VTAB 13: PRINT "VARIAZIONE NELLA COTTURA.' 


13170 VTAB 23: PRINT ‘BATTI ';: FLASH : PRINT 'RETURN';: NO 
RMAL : PRINT " SE NULLA CAMBIA' 

13190 VTAB 20: INPUT 'PESO TOTALE (XXGR 0 XX0Z) ' ;A1 
13200 IF LEN (Al) = 0 THEN 13270 

13210 IF ( RIGHT1 (Al,2) = 'GR') OR ( R1GKT1 (Al,2) = ’0Z') 
THEN 13230 

13220 VTAB 20: PRINT 'DEVE FINIRE IN 'GR' 0 '02'I 
* : F0R K = 1 T0 1500: NEXT K: GOTO 13190 
13230 LE = LEN (Al): GOSUB 475 
13240 Al = LEFT1 (Al,LE - 2) 

13250 UA = VAL (Al): IF UA = 0 THEN HOME : VTAB 2: PRINT 
■IL PESO CORRETTO DEV'ESSERE UN NUMERO’: GOTO 13180 
13280 UA = 100 * CO 

13270 HOME : VTAB 2: PRINT 'BATTI IL NOME DELLA RICETTA C0M 
E" :K = 1: PRINT : PRINT : GOSUB 215 
13280 IF LEN (P!(l)> > TV(1) THEN PRINT 'INPUT TROPPO LUN 
G0 1 ' ; Gl : Gl : F0R KK = 1 T0 750: NEXT KK: VTAB (CV ♦ 1 
): HTAB i: CALL - 958: GOTO 13270 
13290 TEXT : HOME : VTAB 8: PRINT 'BATTI LA QUANTITÀ' STtfiD 
ARD DI UN ': VTAB 10: PRINT 'PIATTO DELLA RICETTA.': 
VTAB 13: HTAB 8: INPUT 'QUANTITÀ' ?*;KK: IF KK < = 0 
THEN 13290 

13300 P!<2) = STRI ( INT (UA / KK)) ♦ "GR-' * STRI ( INT 
(UA / (KK » 2,83)) / IO) ♦ "OZ-1/* + STRI (KK) + ’SU 
M’: IF LEN (P!(2)) ) 20 THEN HOME : VTAB 10: PRINT 
■SECONDO CAMPO TROPPO LUNGO": FOR K = ! T0 3000: NEXT 
K: GOTO 13290 

13310 P!(3) = STRI ((UA / (KK * 100))): FOR K = 4 T0 NF:P! 
(K) = STRI ((100 / UA) ♦ PS(K)):P1(K) = LEFT1 (P1(K 
),8): NEXT K 

13320 GÓSUB 1005:RX = 0: GOSUB 230: PRINT REC: PRINT Dl'CLO 
SE': HOME : VTAB 10: PRINT Pl(l);' SALVATO COME RECCO 
RD ';REC: FOR K = 1 T0 2000: NEXT K: CLEAR : GOTO 150 
0 

14000 REM **DA ASSEGNARE** 

14010 TEXT : HOME : VTAB 5: PRINT 'DA ASSEGNARE DALLA LINEA 
14000 ALLA': PRINT : PRINT 'LINEA 14900.': GOSUB 785 
: GOTO 1550 

14990 REM ERR0R ROUTINE 
15000 EN = PEEK (222) 

15010 EL = PEEK (218) ♦ 258 * PEEK (219) 

15020 POKE 21é,0:MS1 = 'INSERISCI IL DISCO DATI (SE NECESSA 
RIO)' 

15030 IF EN = 5 THEN PRINT : PRINT 'END 0F DATA ALLA LINEA 
■:EL: PRINT 'ACCERTATI CHE IL FILE "FILEV": PRINT 
'SIA SU QUESTO DISCO* 

15040 IF EN = 8 THEN PRINT : PRINT 'IL FILE "FILE*''': PR 
INT 'NON E' SU QUESTO DISCO': PRINT : PRINT WJ 
15050 IF EN < 18 AND EN < > 5 AND EN < >8 THEN PRINT : 

PRINT ' ERRORE DI DISCO N. *:EN^ ALLA LINEA ';EL 
15080 IF EN = >18 THEN PRINT : PRINT ' ERRORE APPLESOFT 
NO. 'EN' ALLA LINEA 'EL:MS? = ” 

15070 PRINT : PRINT MS$: PRINT : PRINT "BATTI RETURN';: GET 
AB?: PRINT : CLEAR : GOTO 8 
25000 REM «FINE PROGRAMMA** 

25010 FOR K = 1 TO 100: NEXT K: TEXT : HOME : PRINT 'NON DI 
MENTI CARE DI FARE UN ’: PRINT 'BACK UP DEI TUOI DATI. 
';G$;G?;G?: PRINT : PRINT 'BOOM GIORNATA !' 
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TERMINE (figura 3) è intesa a per¬ 
mettere all’utente di fare di tanto in 
tanto un controllo dell’andamento. 
Questo semplice algoritmo comincia 
alla linea 7000. Esso recupera il record 
del peso dell’utente (linee 7020—7050) 


e calcola il suo peso medio e la perdita 
di peso per il numero dei giorni in cui i 
dati sono stati registrati. L’utente vie¬ 
ne informato del suo andamento e il 
controllo viene restituito al menù prin¬ 
cipale. 


Valutazione 
delle ricette 

L’opzione 6 del menù principale (fi¬ 
gura 1) porta direttamente al modulo 
di valutazione delle ricette a linea 
13000. Dopo aver visualizzato le istru¬ 
zioni (linee 13000—13040) questo mo¬ 
dulo richiama le subroutine realizzate 
per il modulo di analisi della nutrizio¬ 
ne e accetta la specificazione da parte 
dell’utente dei cibi e delle quantità (li¬ 
nea 13060) e per sommare gli elementi 
nutritivi (linea 13100). Dopo l’intro¬ 
duzione delle voci di tutti i cibi di una 
ricetta viene visualizzata una lista dei 
cibi e delle quantità, anche qui utiliz¬ 
zando le subroutine messe a punto in 
precedenza. 

All’utente viene fornito il peso tota¬ 
le degli ingredienti (linea 13150) e gli 
viene chiesto di rivederlo per far posto 
ai cambiamenti (linea 13160). Dopo 
che vengono forniti il nome della ricet¬ 
ta e il numero delle portate (linee 
13270-13300) la data viene aggiunta 
al database dei cibi come ultima intro¬ 
duzione e il controllo torna al menù 
principale. 

Gli ulteriori cambiamenti dei dati 
(per esempio come conseguenza di 
una perdita di potere nutritivo dovuto 
alla cottura, o per fornire una descri¬ 
zione più dettagliata di una portata 
tipica) possono essere compiuti utiliz¬ 
zando l'opzione CAMBIA/CAN- 
CELLA. 

La valutazione dei cibi 

Questa sezione è prevista come sus¬ 
sidio per la pianificazione di pasti bi¬ 
lanciati. VALUTAZIONE NUTRI¬ 
ZIONALE (figura 11) invia il control¬ 
lo del programma a questa sezione del 
programma dalle linee 12500—12650. 
Si fa ampio uso di alcune delle subrou- 


SCEGLI QUI LA TUA DIETA 

L’elenco dei cibi pubblicato qui a fianco è contenuto in un file a parte, sullo stesso 
disco che contiene il programma, disponibile a 25.000 lire (vedi Disk Service). Per 
ogni cibo sono forniti i seguenti dati : il nome; la quantità in grammi di una porzione 
standard; il fattore di conversione a 100 gr; le calorie per 100 gr; le proteine in gr; i 
grassi in gr; i carboidrati in gr; il calcio in mg; il ferro in mg; il sodio in mg; la 
vitamina A in mg; la vitamina B1 in mg; la vitamina B2 in mg; la Niacina in mg; la 
vitamina C in mg; il c.olesterolo in mg. 

Chi invece preferisse digitare da sé il programma e inserire i dati deve procurarsi 
un libro o una tabella che specifichi per ogni alimento i dati richiesti dal data base 
dei cibi. La procedura di inserimento, già descritta nell’articolo, è la seguente: 
Dal menù principale si sceglie l’opzione 2, compare: 

QUESTO SARA’ IL RECORD N seguito dal numero con cui verrà archiviato 
quell'alimento. 

Vi viene poi chiesto nell’ordine: 

BATTI CIBO: (dovrete inserire il nome deU'alimento con non più di 20 caratteri) 
QUANTITÀ’: (dovete specificare la quantità di una porzione standard) 
CONVERSIONE: (vi è chiesto di inserire il rapporto tra la quantità di una 
porzione standard in rapporto a 100 gr di alimento. Questo numero sarà minore di 1 
se la QUANTITÀ’ è inferire a 100 gr e maggiore di 1 se è superiore) 

È questo il momento di prendere le tabelle ricavate da uno dei libri che vi sarete 
procurati per inserire i dati caratteristici di ogni alimento. Dovete ineserire: 
CALORIE—100 GR: (dato rapportato a 100 gr di alimento come tutte le voci che 
seguono) 


A questo punto dovrete confermare i dati inseriti e, alla richiesta su video, 
passare alla registrazione successiva con la medesima procedura. Per i piatti più 
complessi il calcolo dei dati necessari viene fatto automaticamente a condizione che 
gli alimenti di base siano già stati inseriti nel data base. 

A titolo di esempio vi forniamo qui sotto alcuni dei dati inseriti sul dischetto di 
Applicando: 


PROTEINE-GR: 
GRASSI-GR: 
CARBOIDRATI—GR: 
CALCIO-MG: 

FERRO-MG: 
SODIO-MG: 
VITAMINA A-MG: 
VITAMINA B 1—MG: 
VITAMINA B 2-MG: 
NIACINA-MG: 
VITAMINA C-MG: 
COLESTEROLO-MG: 



CIBO 

BURRO 

CAROTE CRUDE 

FICHI SECCHI 

FILETTO MANZO 

QUANTITÀ' 

100 

100 

100 

100 

CONVERSIONE 

1 

1 

1 

1 

CALORIE 100 GR 

716 

42 

274 

305 

PROTEINE 

0.6 

1.1 

4.3 

24.1 

GRASSI 

81 

0.2 

1.3 

29.1 

CARBOIDRATI 

0.4 

9.7 

69.1 

0 

CALCIO 

20 

37 

126 

11 

FERRO 

0 

0.7 

3 

■ 3.1 

SODIO 

987 

47 

34 

65 

VITAMINA A 

3300 

- 11000 

80 

■ 50 

VITAMINA B 1 

/ 

0.06 

0.1 

0.07 

VITAMINA B 2 

mi 

0.05 

0.1 

0.19 

NIACINA 

/ 

0.6 

0.7 

4.9 

VITAMINA C 

0 

8 

0 

■ / 

COLESTEROLO 

250 

0 
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Tabella 1 


Continua a pag. 36 


N. CIBO 

317 ACCIUGHE FRESCHE 
290 AGLIO (TESTA) 

234 ALBICOCCHE FRESCHE 
94 ANACARDI 
35 ANATRA DA CORTILE 

158 ANIMELLE DI BOVINO 
141 ARAGOSTA SOLO POLPA 
328 ARINGA FRESCA 

224 ASIAGO 

394 AVENA FARINA COTTA 

319 BACCALÀ' ALMOLLATO 
19 BANANE 

41 BARBABIETOLE CRUDE 
9 BESCIAMELLA MEDIA 
372 BIRRA CHIARA 

349 BISCOTTI SECCHI 
384 BRANDY 

273 BROCCOLI DI RAPA 
114 BUDINO MISCELA LATTE 
345 CACAO IN POLVERE 

221 CACIOTTA DI PECORA 
184 CAPPONE 

88 CARAMELLE CIOCCOLATO 
157 CARNE DI CAVALLO 
94 CAROTE COTTE 

248 CASTAGNE FRESCHE 
97 CAVOLFIORE BOLLITO 

274 CAVOLO VERDE (VER2A) 
48 CERVELLA 

240 CILIEGE 

124 CIOCCOLATO AL LATTE 
123 CIPOLLE MATURE 
1 COCOMERO 
201 COPPA 

147 COSTOLETTA AGNELLO 

270 CRAUTI 
244 CRESCIONE 

159 CUORE DI MANZO 

28 DATTERI SNOCCIOLATI 
39 FAGIOLI GIALLI CRUDI 


N. CIBO 

330 ACCIUGHE SOTT'OLIO 
182 AGNELLO CASTRATO 
244 ALBICOCCHE SCIROPP. 
27 ANANAS CRUDO 
332 ANGUILLA DI FIUME 

388 APSARAGI COTTI 
121 ARANCE FLORIDA 
395 ARINGA IN SCATOLA 
271 ASPARAGI 
397 AVENA FARIW SECCA 

324 BACCALÀ' SECCO SAL. 
283 BARBABIETOLA!RADI CI) 
48 BASTONCINI DI PESCE 

391 BIETOLA COTTA 

373 BIRRA SCURA 

393 BISCOTTO AL CIOCCOL. 
73 BROCCOLI BOLLITI 
23 BRODO DI CARNE 
77 BURRO . 

242 CACHI 

371 CAFFÈ' NON ZUCCHER. 
173 CAPRETTO (VAL. MEDI) 
87 CARAMELLE ZUCCHERO 
44 CARNE IN SCATOLA 
95 CAROTE CRUDE 

253 CASTAGNE SECCHE 
98 CAVOLFIORE CRUDO 
295 CECI SECCHI 
18 CETRIOLO CRUDO 

392 CILIEGE IN SACTOLA 

125 CIOCCOLATO FONDENTE 

374 COCA COLA 
172 CONIGLIO 
180 CORATELLA 
194 COTECHINO 

54 CRAUTI IN SCATOLA 

55 CULATELLO DI MANZO 
47 DADO DI BRODO 

318 DENTICE 

38 FAGIOLI GIALLI IN SC 


N. CIBO 

320 ACCIUGHE SOTTOSALE 
154 AGNELLO DI LATTE 
250 ALBICOCCHE SECCHE 

13 (WWAS SCIROPPATO 
331 ANGUILLA DI MARE 

99 ARACHIDI TOSTATE 
103 ARINGA AFFUMICATA 
5 ARROSTO DI TACCHINO 
387 ASPARAGI PUNTE 
15 AVOCADO CRUDO 

14 BACON CANADESE 

40 BARBABIETOLE COTTE 
214 BEL PAESE 
277 BIETOLE 
394 BISCOTTI AI FICHI 

57 BISTECCA CON L'OSSO 
74 BROCCOLI CRUDI 
117 BUDINO ISTANTANEO 
101 BURRO DI ARACHIDI 
224 CACIOCAVALLO 

300 CALAMARI 
90 CARAMELLA GELATINA 
285 CARCIOFI FRESCHI 
43 CARNE MANZO IN UMIDO 
314 CARPA 

294 CAVIALE 

74 CAVQL1NI BRUXELLES 
325 CEFALO 
248 CICORIA RICCIA 
114 CILIEGE MARASCHINO 

281 CIPOLLA FRESCA 
128 COCCO POLPA FRESCA 
354 CONSERVA DI POMODOR 
138 CORN FLAKES 
49 CRACKER SALATI 

211 CRESCENZA 
140 CUORE DI MAIALE 
252 DATTERI SECCHI 
228 EMB4THAL 
293 FAGIOLI SECCHI 


N. CIBO 

32 FAGIOLI VERDI COTTI 
341 FARINA DI MIS (407.) 
344 FARINA MAIS INTEGR. 
152 FARINA SEGALE BIANCA 
284 FAVE FRESCHE 

144 FEGATO DI NWZO 
20 FEGATO MANZO FRITTO 
45 FETTINA DI NWZO 
47 FICHI SECCHI 
352 FIOCCHI D'AVENA 

104 FORMAGGIO CAMEMBERT 
139 FUNGHI Coni 

183 GALLINA 

313 GAMBERI DI MARE 

111 GELATO 127 GRASSO 

218 GORGONZOLA 

351 GRISSINI (UAL.MEDI) 

50 HAMBURGER DI MFWZO 
240 INSALATA RICCIA 
214 LATTE COND. ZUCCH. 

249 LABE DI COCCO 
222 LATTE IN POLV.SCREM. 
242 LAnUGA 
155 LEPRE 

105 LIMONATA ZUCCHERATA 

181 LINGUA DI MAIALE 
302 LUMACHE (VAL.MEDI) 
171 MAIALE CARNE MAGRA 
357 MAIONESE 
384 MANDORLE TOSTATE 

51 MANZO PARTE MAGRA 
124 MARMELLATE/CONSERVE 
4 MELA CRUDA 

37 MEUMZtftt CRUDA 
129 MERLUZZO 

82 MISCELA PWE ANGELI 
197 MORTADELLA 
257 NOCCIOLE SECCHE 
187 OCA 

150 OLIO DI ARACHIDE 


N. CIBO 

31 FAGIOLI VERDI IN SC. 

334 FARINA FRUM. INTEGR. 
339 FARINA ORZO PERLATO 

335 FARINA SEGALE SCURA 
292 FAVE SECCHE 

144 FEGATO DI POLLO 
109 FEGATO VITEL. FRIHO 

234 FICHI D'INDIA 

54 FILEHO DI MANZO 
33 FOCACCIA MEDIA 

227 FORMAGGIO GRANA 
132 FUNGHI CRUDI 
29 GAMBEREni FRITTI 
344 GELATINA DI FRUnA 
348 GERME "I GIWNO 

144 GRANCHIO A VAPORE 
353 GRISSINI ALL'OLIO 
245 INDIVIA 
107 LAMPONI ROSSI 
210 LATO COND.NON ZUCC. 

209 LAnE DI PECORA 
43 LAnE INTERO 
294 LENTICCHIE 
355 LIEVITO BIRRA PRESS. 
93 LIMONE FRESCO 

179 LINGUA DI MANZO 
42 MACEDONIA DI FRITTA 
143 MAIALE COnO 

235 MANDARINI 

185 tVWZO CARNE GRASSA 

175 NMZO SEMIGRASSO 
379 MARSALA 
245 MELAGRANE 

343 MELASSA DI CALMA 

344 MIELE 

304 MITILI 

217 MOZZARELLA DI BUFALA 
259 NOCE DI COCCO SECCA 
78 OCA ARROSTO 
358 OLIO DI GIRASOLE 


tine esaminate nelle precedenti sezio¬ 
ni. Si utilizzano i dati personali, in 
unione con i dati sui cibi, per visualiz¬ 
zare la percentuale delle esigenze per 
una giornata che viene soddisfatta da 
una determinata ricetta. 


Esame del nome 
dei cibi 

L’opzione RICERCA CIBI (figura 
11) permette all’utente di esaminare 


sullo schermo i nomi di tutti i cibi e i 
corrispondènti numeri di record. Que¬ 
sta sezione del programma comincia 
alla linea 11000. Tutti i nomi dei cibi 
vengono letti in una matrice stringa 
(linea 11070). Se l’utente risponde con 
S quando gli viene chiesto se vuole la 
lista dei cibi (linea 11090) tutti i nomi 
dei cibi vengono visualizzati su due 
colonne, con la velocità di scorrimento 
controllata da una paddle. 

E prevista anche l’esplorazione del¬ 
la lista da parte del computer. Tutte le 
possibili posizioni delle parole chiave 
in tutti i nomi di cibi vengono control¬ 
late per vedere se ci sia la parola chia¬ 
ve, in un tenace sforzo inteso a trovare 
la voce o le voci desiderate e a listarle. 
Questo viene fatto nelle linee 
11160-11250. 

Lista stampata dei cibi 

SORT/STAMPA LISTA CIBI è in¬ 
cluso come programma separato (li¬ 
stato 2). Esso figura alla fine del listato 
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Segue da pag. 35 


N. CIBO 

N. 

CIBO 

N. 

CIBO 

N. 

CIBO 

280 FAGIOLINI FRESCHI 

340 

OLIO DI SOIA 

246 

OLIVE IWRIWTE 

133 

OLIVE VERDI 

343 FARINA FRUMENT0(85X) 

247 

OLIVE VERDI CONSERV. 

309 

ORATA 

21 

ORZO PERLATO 

342 FARINA RISO PERLATO 

115 

OSTRICHE COTTE 

301 

OSTRICHE FRESCHE 

310 

PALOMBO 

337 FARINA SOIA INTEGR. 

204 

PANCETTA 

71 

PANE BIANCO 

70 

PINE FRANCESE 

165 FEAGTO DI MAIALE 

72 

PANE INTEGRALE 

334 

PANE SEGALE INTEGR. 

333 

PANE SEGALE SENIBIAN 

147 FEGATO DI VITELLO 

219 

PANERONE 

398 

PANINI DOLCI 

17 

Pimi NON MONTATA 

349 FETTE BISCOTTATE 

149 

PARMIGIANO 

350 

PASTA ALL'UOVO 

347 

PASTA COMUNE 

243 FICHI FRESCHI 

338 

PASTA GLUT1NATA 

289 

PATATE 

135 

PATATE AL FORNO 

278 FINOCCHI 

130 

PATATE DOLCI BOLLITE 

134 

PATATE LESSE 

136 

PATATINE FRITTE 

223 FONTINA 

199 

PATÉ' DE FOIS GRAS 

186 

PECORA (VALORI MEDI) 

225 

PECORINO (VAL.MEDI) 

10 FRAGOLE 

198 

PEOSCIUTTO cono 

86 

PEPERONI DOLCI 

92 

PERE CRUDE 

291 FUNGHI SECCHI 

100 

PERE SCIROPPATE 

308 

PESCE DI SAN PIETRO 

322 

PESCE SPADA 

30 GAMBERETTI SCATOLA 

102 

PESCHE CRUDE 

131 

PESCHE NOCE 

104 

PESCHE SCIROPPATE 

356 GELATINA SECCA 

174 

PICCIONE 

254 

PINOLI SECCHI 

89 

PISELLI 

380 GIN 

91 

PISELLI IN SCATOLA 

254 

PISTACCHIO 

137 

PI22A MARGHERITA 

383 GRAPPA 

298 

POLIPO 

170 

POLLASTRO 

174 

POLLO 

230 GROVIERA 

118 

POLLO ARROSTO 

274 

POMODORI DA SUGO 

272 

POMODORI FRESCHI 

140 INSALATA CONDITA 

247 

POMODORI PELATI SCT. 

84 

POMPELMO SPICCHI 

145 

POPCORN CONDITO 

14 LARDO 

144 

POPCORN NON CONDITO 

282 

PORRI 

202 

PROSCIUTTO CRUDO 

207 LATTE DI CAPRA 

213 

PROVOLONE FRESCO 

231 

PROVOLONE STAGIONATO 

238 

PRUGNE FRESCHE 

232 LATTE IN POLV.INTERO 

120 

PRUGNE SECCHE 

299 

RANA (COSCE) 

399 

RAPA BOLLITA 

205 LATTE VACCINO SCREM. 

279 

RAPE RADICI 

110 

RAVANELLI CRUDI 

303 

RAZZA 

108 LENTICCHIE COTTE 

382 

RHUM 

22 

RIBES ROSSO 

220 

RICOTTA 

4 LIEVITO BIRRA SECCO 

177 

RIGAGLIE DI POLLO 

148 

RISO BRILLATO 

345 

RISO NON DECORTICATO 

163 LINCIA DI VITELLO 

153 

RISOTTO AI FUNGHI 

142 

ROGNONE DI NNZO 

141 

ROGNONE DI VITELLO 

311 LUCCIO 

312 

ROMBO 

200 

SALAME (VALORI MEDI) 

65 

SALMONE AFFUMICATO 

188 MAIALE CARNE GRASSA 

75 

SALMONE ALLA GRIGLIA 

329 

SALMONE FRESCO 

44 

SALMONE ROSA IN SCAT 

142 MAIALE COTTO MAGRO 

194 

SALS FEGATO MAIALE 

192 

SALS. MAIALE FRESCHE 

203 

SALS. MAIALE SECCHE 

255 MANDORLE SECCHE 

193 

SANGUINACCIO 

321 

SARDINE FRESCHE 

59 

SARDINE OLIO IN SCAT 

52 MANZO COSTATA 

241 

SCAROLA 

8 

SCIROPPI IN GENERE 

287 

SCORZONERA 

127 MARGARINA 

244 

SEDANOCOSTE 

390 

SEDANO COTTO 

284 

SEDANO DI VERONA 

229 MASCARPONE 


ELVAGGINA PEWUTA 

112 

SEMI DI ZUCCA 

344 

SEMOLINO DI FRUMENTO 

34 MELANZANA COTTA 

306 

SEPPIE 

327 

SGOMBRO 

26 

SOFT D1RNK TONICI 

233 MELONE 

25 

SOFT DRINK DOLCI 

305 

SOGLIOLA 

42 

SOTTACETI AGRODOLCE 

44 MIRTILLI CRUDI 

44 

SOTTACETI PICCANTI 

11 

SPINACI 

12 

SPINACI BOLLITI 

239 MORE 

378 

SPimfTE OOLCE 

377 

SPUMNTE SECCO 

315 

STOCCAFISSO AfflOLL. 

212 MOZZARELLA DI MUCCA 

297 

STOCCAFISSO SECCO 

215 

STRACCHINO 

361 

STRUTTO 

258 NOCI SECCHE 

385 

SUCCHI DI FRUTTA 

237 

succo (tms IN SC. 

119 

SUCCO D'ARANCIA 

342 OLIO D'OLIVA 

85 

SUCCO DI LIMONE 

3 

SUCCO DI MELE 

7 

SUCCO DI POMODORO 

359 OLIO DI MAIS 

122 

SUCCO DI PRUGNE 

241 

SUCCO DI INA 

249 

SUCCO POMODORO CONO. 


N. 


'‘CIBO 


80 SUCCO POMPELMO 
340 TAPIOCA 

30? TINCA 

83 TORTA CIOCCOLATO 
389 TORTA MISCELA BIANCA 

154 TRIPPA DI BOVINO 

40 UOVA AL BURRO 

189 UOVO- ALBUME MEDIO 
79 INA SPINA FRESCA 
375 VINO DA PASTO (V.M.) 

381 WHISKY 
206 YOGURT MAGRO 
113 ZUCCA POLPA FRESCA 
243 ZUCCHINE 

81 SUCCO POMPELMO DOLCE 
288 TARTUFI 

53 TOWO ALL'OLIO IN SC 
34 TORTA DI MELE 
400 TORTA MISCELA GIALLA 

314 TROTA (VALORI MEDI) 

41 UOVA SODE 

190 UOVO- TUORLO MEDIO 
2 VERDUTE COTTE MISTE 
151 VINO DA PASTO COMUNE 

191 WURSTEL (VAL. MEDI) 
195 ZAMPONE 

34? ZUCCHERO D'UVA 

178 TACCHINO 
370 THE 

324 TONNO FRESCO 
24 TORTA DI MERINGA 
323 TRIGLIA 

49 TROTA BOLLITA 
58 UOVO MEDIO 
251 IMA SECCA 
374 VERMOUTH 
148 VITELLO (VAL.MEDI) 

208 YOGURT INTERO 
275 ZUCCA 6IALLA 
368 ZUCCHERO RAFFINATO 


Listato 2 - SORT / STAMPA 


1 REM ********************** 

2 REM * SORT E STAMPA * 

4 REM « COPYRIGHT (0 1985 * 

5 REM * BY MICROSPARC, INC * 

4 REM * 4 APPLICANDO » 

7 REM ********************** 

100 REM »* SORT E STAMPA ** 

102 D$ = CHR* <4):BC* = CHR» <2)iG* = CHR* (7): GOTO 120 
00 

104 REM **SUBR0UT1NES** 

275 REM » APRE ! FILE DA LEGGERE** 

280 PRINT DVOPEN ■sFILE*" .L* :RL 
285 PRINT DPREAD-iFILEV.R’iRX 
290 RETURN 

314 REM «SUBROUTINE** 

320 REM ««LEGGE LA LUNGHEZZA DE! RECORD E DEI CAMPI** 

325 PRINT DVOPEN* ;FILE1 + BCt 
330 PRINT D»'READ':FI LE* * BC* 

335 INPUT NF: INPUT RL: OIM T*<2 » NF),TV(NF),P»(NF) 

340 FOR K = 1 TO NF: INPUT T*<K): INPUT TVdOi NEXT K 
345 PRINT Dt'CLOSE'FILE* * BC* 

350 RETURN 

355 REM ««APRE ! FILE DA LEGGERE»* 

360 PRINT M'OPEN "iFILEV.L'jRL 
345 PRINT M'READ*[FILE* 1 ,R0‘ 

370 RETURN 

375 REM ««INTESTAZIONE PAGIM** 

380 PRINT "N.“; : HTA8 12: PRINT ■CIBO":: HTA8 27: PRINT 'N. 
■ : : POKE 38,39: PRINT 'CIBO 1 ;: POKE 36,54: PRINT , N. , |: 
POKE 34,66: PRINT ‘CIBO 1 
385 PRINT 

390 PP = PP + I :BL = 0 
395 RETURN 


400 REM ««STAMPANTE ACCESA** 

405 HOME : PRINT : PRINT 'STAMPANTE NELLO SLOT É'jGt: INPU 
T SLOT 

425 PRINT D*'PRL':SLOT: PRINT CHR* <9);'80N’ 

430 RETURN 

435 REM «STAMPA DEI CIBI* 

440 PRINT RX<1); : HTAB 5: PRINT P*<1):: HTAB 27: PRINT RX(2 
):: HTAB 31: PRINT P*(2);; POKE 36,54: PRINT RX<3); : PO 
KE 34,58: PRINT P*<3) 

445 RETURN 

1200 REM ««ROUTINE DI SORT** 

1205 DIM SRT*(REC),SO(REC) 

1210 SF = 1:S1 = 1 

1215 HOME : VTAB IO: HTAB 14: FLASH : PRINT “SORTING": NORM 
AL : VTAB 20: PRINT '««(C) 1984 8Y APPLICANDO 4 MICROS 
PARC**': VTAB 10: HTAB 23 
1220 PRINT D*'OPEN'F]LE*',L'jRL 

1225 FOR K = 1 TO REC:RX = K: GOSUB 285: IF SF = 1 THEN 123 
5 

1230 FOR L = 1 TO SF - 1: INPUT 2$: NEXT L 
1235 INPUT SRT*(K):S0(K) = K: NEXT K 
1240 PRINT D*'CLOSE'FILE* 

1245 M = 1 

1250 M = 3 * M + 1 : IF M < REC THEN 1250 
1255 M = (M - 1) / 3: IF M ( 1 THEN 1275 

1240 FOR J = M + 1 TO RECiLL = J - M:SS* = SRT*(J):S = SO(J 

) 

1265 IF Si = <SRT*(LL) > SS») THEN SRT*(LL * M) = SRT»(LL): 

SOCLL ♦ M) = SO(LL):LL = LL - M: IF LL > 0 THEN 1265 

1270 SRT*(LL ♦ M) = SS*:SO(LL « M) = S: NEXT J: GOTO 1255 

1275 REM ««LISTA DI SORT COMPLETA** 

1280 RETURN 

1290 REM ««SUBROUTINE** 

2050 GOSUB 1200 

12000 TEXT : REM «STAMPA LISTA DEI CIBI DELL'LTTlLI2ZATORE* 
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del programma che reca i numeri 
100—12280. Diverse linee del pro¬ 
gramma replicano quelle della Dieta, 
dato che vengono usate qui molte su¬ 
broutine identiche. 

Caricano il programma le linee 
12000-12020 della Dieta. Poi viene 
ordinata (linea 12050) dalla subrouti¬ 
ne la lista presa dalle linee 1200—1280. 
(Questa routine è prelevata anch’essa 
dairSistema Base".) Dopo il comple¬ 
tamento dell’ordinamento la lista vie¬ 
ne stampata nel formato visibile nella 
Tabella 1. 

Sviluppo 
e applicazioni 

Non è stato fatto alcun ricorso alla 
grafica dell’Apple: è la considerazione 
immediata che vi verrà in mente. I 
confronti con le esigenze quotidiane 
sarebbero molto adatti a una raffigu¬ 
razione per istogrammi. Gli alti e bassi 
a lungo termine sarebbero, se tracciati 
in alta risoluzione, un utile supple¬ 
mento dell’analisi a lunga scadenza co¬ 
sì come può essere perfezionata tutta 
la parte di esplorazione dei dati sui cibi 
e dei numeri di record. 

Un altro interessante campo su cui 
lavorare per migliorare questo pro¬ 
gramma è certamente una stima mag¬ 
giore sui livelli di attività fisica in mo¬ 
do che il computer, con tutti gli ele¬ 
menti a disposizione, possa dare effi¬ 


caci suggerimenti anche per ciò che 
concerne l’attività fisica, in tal modo 
sarebbero bilanciate le esigenze ener¬ 
getiche sia in termini nutrizionali che 
in termini di attività fisica. Si potrebbe 
fare in modo insomma di avere una 
risposta precisa alla domanda: cosa 
debbo fare per perdere x chili in y 
settimane? 

Note finali 

Noterete, usando il programma, 
che bastano pochi minuti per tener 
conto degli elementi nutritivi lungo il 
corso di una giornata, mentre la valu¬ 
tazione dell’entità delle porzioni è 
davvero difficile. 

Riteniamo che chiunque stia facen¬ 
do un serio tentativo di perdere peso 
con l’aiuto del programma farebbe be¬ 
ne a pesare in un primo tempo i suoi 
cibi. A questo proposito dovete ricor¬ 
dare che le ossa e altre parti dei cibi 
normalmente considerate non com¬ 
mestibili non devono essere incluse 
nel peso. L’esperienza vi permetterà 
poi di valutare con molta precisione il 
peso delle vostre porzioni anche senza 
l’uso della bilancia. 

La direttiva dell’American Medicai 
Association sulla proporzione delle 
calorie da ricavare da proteine, car¬ 
boidrati e grassi sembra davvero diffi¬ 
cile da soddisfare. Riteniamo che nella 
media noi mangiamo troppi grassi. 
Abbiamo anche notato che la quantità 


di proteine raccomandata è ben al di¬ 
sopra di quella considerata minima dal 
Nutrition Almanac. 

In definitiva ci è parso di poter con¬ 
cludere che si può mangiare notevol¬ 
mente di più di quanto si sia abituati e, 
con una adeguata assunzione di pro¬ 
teine, conservare ugualmente il peso o 
perdere i fastidiosi "chili in più" che 
tante volte abbiamo cercato di elimi¬ 
nare. 

L’estate è alle porte, la linea è sem¬ 
pre uno degli obbiettivi da raggiunge¬ 
re prima della fatidica esposizione ai 
raggi del sole. Questa DIETA PER¬ 
SONALIZZATA fa al caso vostro: 
sarà il compagno fedele che vi permet¬ 
terà di sfoggiare una perfetta siluet¬ 
te. Proprio come se, al posto di diver¬ 
tirvi con la tastiera, quest’inverno ave¬ 
ste fatto soltanto attività sportive! 
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Evans and Company Ine., 1973, NY, 
Appendix C, p. 265. 

5. Frye, Dr. H.L., "Calorie Crunching 
with a Computer", Personal Compu¬ 
ting, giugno 1981 

6 Emanuele Djalma Vitali, Guida al¬ 
l’alimentazione - I cibi, Editori riuni¬ 
ti. 

7. Elio Muti, Il cibo ed il nostro corpo, 
Ottaviano. 

8. Salvatore Lorusso, Basi di tecnolo¬ 
gia di preparazione dei cibi, Editrice 
Clueb Bologna. 

9. Alfredo Rabbi, Cibo e Alimentazio¬ 
ne, Zanichelli. 

10. A. Viti Arduini e G. Picei, Aspetti 
della nutrizione per istituti tecnici 
— vol.l, Editrice Galileo —Pisa. 

11. A. Viti Arduini e F.p. Viviotti, 
Tabelle dietetiche per singoli e comuni¬ 
tà — voi. 2, Editrice Galileo -Pisa. 


Questo programma è disponibile su 
dischetto. L'elenco, i prezzi e le 
modalità d'ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- K 


12010 

12020 

12030 

12050 

12060 


12070 

12080 

12090 

12100 

12110 

12120 

12130 

12140 

12150 

12140 

12170 

12180 

12190 

12200 

12210 

12220 


12230 

12240 

12250 

12260 

12270 

12280 


HOME : FI LE* = "CIBI*: G0SUB 320:RX = 0: G0SUB 275: IN 
PUT REO 

PRIMI WCLOSE'iFILES» 

TEXT : HOME 
G0SUB 1205 

TEXT : HOME : VTAB 10: HTAB 5: PR1NT 'MEMORIA DISPONI 
BILE=*: VTAB 10: HTAB 24: PRINT FRE (8):: PRINT 1 BY 
TES*: F0R K = 1 T0 2000: NEXT K 
GOSUB 400 

PP = 1:SP = 1:BL = 1 

F0R K = 1 T0 6: PRINT : NEXT K 

GOSUB 375 

BL = 1 

PRINT Wj'OPEN';FILEf',L" :RL 

K4 = REC / 3:K5 = INT (REC / 3): IF (K5 < K4) THEN K 

4 = K5 + 1 

FOR K1 = 1 T0 K4 

F0R K2 = 1 T0 3:K3 = ((3 * (K1 - I) * K2)>: 1F (K3 > 
REC) THEN GOTO 12180 
RX(K2) = S0(K3) 

PRINT M;'READ' ;FILE1',R'|RX(K2) : INPUT P*<K2) 

NEXT K2 
GOSUB 435 

FOR K2 = 1 T0 3:P$(K2) = ' ': NEXT K2 

IF SP = 5 THEN PRINT :SP = 0 

IF BL = 40 THEN PRINT : P0KE 36,59: PRINT 'ALLA PROS 

SIftt PAGINA': FOR K = ! T0 14: PRINT : NEXT K: GOSUB 

375 

SP = SP + 1:BL = BL + ! 

NEXT K1 

PRINT Mi'CLOSE'iFILE» 

PRINT D*ì'PR£0' 

HOME : VTAB 10: FLASH : PRINT 'L0ADING 'DIETA PERSONA 
LI2ZATA': NORMAL 

PRINT D4;'RLN DIETA PERSONALIZZATA' 
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Un modello di Data Base che vi permette di ritrovare in 
tempo reale il numero telefonico di una persona? E che a 
Natale e a Pasqua vi stampi le etichette con gli indirizzi di 
tutti coloro ai quali volete spedire gli auguri? Non solo... 


Agenda telefonica 


A bbiamo affrontato nella puntata 
precedente di questo corso prati¬ 
co per l’uso di AppleWorks (Tre per 
te), il Data Base. Poiché l’argomento 
era più impegnativo di quelli singolar¬ 
mente affrontati nelle puntate prece¬ 
denti, non abbiamo proposto nessun 
modello pratico, ma con alcuni sem¬ 
plici esempi di costruzione di un "ma¬ 
gazzino" avevamo evidenziato i co¬ 
mandi principali e le più importanti 
funzioni di questo "programma nel 
programma". In questo articolo, l’in¬ 
tento è di rafforzare quelle nozioni, 
costruendo un modello pratico di 
agenda telefonica, che non solo risul¬ 
terà, speriamo, molto utile a chiunque 
ne sia interessato, ma che metterà in 
grado chi ci ha seguito fin qui di co¬ 
struire da solo qualunque modello di 
Data Base adatto alle proprie esigenze 
personali. 

Ometteremo di ricordare, per buo¬ 
na parte, quanto visto nella puntata 
precedente, ricordando solo quelle 


istruzioni, magari un po’ più comples¬ 
se, con le quali la familiarità viene so¬ 
prattutto con l’uso. 

Eseguita la procedura preliminare 
per far partire AppleWorks e scelto il 
programma Data Base ex novo, la pri¬ 
ma cosa da fare, e che richiede lo stes¬ 
so computer, è di dare un nome al 
nostro nuovo file. Lo chiamiamo 
Agenda tei. I vari campi da riempire, 
sempre come richiesto dal computer, 
sono quelli della figura 1. Attenzione 
ai campi contraddistinti da una sempli¬ 
ce lineetta: hanno grande importanza: 
vedremo nel capitolo destinato alle 
stampe il perché. Chi avesse esigenze 
diverse da quelle standard che propo¬ 
niamo, può benissimo eseguire tutte le 
varianti del caso, con l’avvertenza e lo 
spassionato consiglio di leggere prima 
fino in fondo l’articolo. 

Per prima cosa, utilizzando l’opzio¬ 
ne mela vuota V, che permette di inse¬ 
rire in qualunque campo un valore 
standard, mettiamo le parole UFFI¬ 


CIO e CASA in corrispondenza del 
primo e del terzo campo contraddisti 
dalle lineette (figura 2). 

Si tratta ora di riempire alcune sche¬ 
de di prova con nominativi qualunque 
o, meglio ancora, con nominativi rea¬ 
li: tutta fatica risparmiata in seguito. 
Per ragioni di ovvia riservatezza, negli 
esempi che vi proporremo, abbiamo 
usato i signori Bianchi, Rossi, eccete¬ 
ra. 

Nella figura 3, è visibile una scheda 
tipo: notate che per l’ufficio sono pre¬ 
senti solo quattro numeri di telefono, 
ma sulla stessa riga c’è spazio per scri¬ 
vere fino a otto numeri telefonici di 
sette cifre. 

Ricerca 
e ordinamento 

Una volta inseriti, scheda per sche¬ 
da, tutti i nominativi desiderati (si pos¬ 
sono gestire contemporaneamente cir- 


Figura 1 

File: AGENDA TEL. CAMBIA NOME/CAMPO Esc: Rev/Agg/Nodifica 

None campo 

Figura 2 

File: AGENDA TEL. UALORI STANOARD Esc: Rev/Agg/Noditica 

Record 

COGNOME 


COGNOME: - 

NCME 

Parametri: 

NOME: - 

VIA 


VIA: - 

CAP-CITTA-PROV. 

Batti nome campo 

CAP-CITTA-PROU.: - 


Freccia sù Uà a campo precedente 

-: UFFICIO 

- 


-: CASA 

NOTE 


NOTE: - 

NOTE 


NOTE: - 

AUGURI 


AUGURI: - 

Batti un valore o usa i comandi 5 

35K Disp. 

Batti i valori standard dei campi 39K Disp. 
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ca 700 schede), fatta salva natural¬ 
mente la possibilità di inserire i nomi¬ 
nativi anche in fasi successive, per cer¬ 
care il numero telefonico del signor 
Bianchi basta premere mela vuota C. 
Il computer richiede che vengano bat¬ 


tuti i dati di confronto: in parole pove¬ 
re, bisogna scrivere la parola o il nu¬ 
mero che si vuol cercare. Battete 
Bianchi (sempre che nella vostra 
Agenda telefonica ci sia un Bianchi) : il 
video si presenta come nella figura 4. 
Battete RETURN, e la scheda del si¬ 
gnor Bianchi compare a video pratica- 
mente in tempo reale. 

Naturalmente è bene ordinare alfa¬ 
beticamente le schede ogni volta che si 
fanno degli inserimenti. Per questo 
basta posizionare il cursore all’interno 
del campo COGNOME in una delle 
schede inserite (una qualunque), pre¬ 
mere mela vuota O: il menù che com¬ 
pare è quello di figura 4. Scegliete l’or¬ 
dinamento 1 (da A a Z) e battete RE¬ 
TURN. In pochi istanti tutto il file 
verrà ordinato in ordine alfabetico per 
cognome. Se premete mela vuota Z e 
scorrete l’elenco usando le frecce su e 
giù, scoprirete un nuovo modo per 
consultare l’agenda telefonica. 

Fin qui, i vantaggi di un’agenda tele¬ 
fonica come questa non sono poi tanto 
superiori a quelli offerti dai comuni e 
consunti quaderni che riportano in co¬ 
pertina il familiare nome di RUBRI¬ 
CA. Vero è che in quei quaderni i 
nomi vengono aggiunti in ordine alfa¬ 
betico, ma solo nel senso che tutti i 
cognomi che cominciano per B sono 
sotto la B. Chi non si è mai innervosito 
durante la ricerca di qualche cogno¬ 
me, spenga pure il computer e conti¬ 
nui a scrivere tradizionalmente a ma¬ 
no i numeri di telefono. 

Vantaggi più evidenti cominciano a 
riscontrarsi quando, anziché un solo 
nominativo, si vuole avere sotto mano 
un intero gruppo. Ecco il perché di 
quei due campi NOTE. Se infatti si 
utilizzano per contraddistinguere le 
persone secondo una categoria di ap¬ 


partenenza, per esempio DIPEN¬ 
DENTE, FORNITORE, CLIENTE, 
e così via, in qualsiasi momento si po¬ 
trà avere l’elenco di ogni categoria a 
video, per poi stamparne un elenco 
oppure le etichette per le buste che 
possono contenere una comunicazio¬ 
ne destinata a quella categoria, eccete¬ 
ra. 

Per eseguire la selezione, basta pre¬ 
mere mela vuota R, posizionare il cur¬ 
sore nel primo campo NOTE (o nel 
secondo, dipende dai dati inseriti), 
battere RETURN, posizionare la bar¬ 
ra luminosa su UGUALE, battere 
RETURN, scrivere il dato di confron¬ 
to, in questo caso DIPENDENTE, 
battere RETURN ed ESC, se non si 
vuole concatenare altri concetti con le 
opzioni di E, O, FINO A, premere 
melavuotaZper avere i nomi, anziché 
scheda per scheda, in una tabella a 
video che presenta contemporanea¬ 
mente fino a 15 nominativi (figure da 6 
a 10). Quando avete terminato di uti¬ 
lizzare la selezione, non dimenticate di 
riselezionare tutte le schede, prima di 
credere di esservi persi quasi tutti i dati 
che avete inserito. Basta che premiate 
mela vuota R: il menù che vi si presen¬ 
ta è quello di figura 11. Opzionate il 
Sì, e tutti i record saranno di nuovo 
disponibili. 

La stessa procedura di selezione va 
seguita quando, a Natale e a Pasqua, si 
decide di inviare gli auguri ad alcuni 
dei nominativi contenuti nell’agenda 
telefonica. Posizionate il cursore al¬ 
l’interno del campo AUGURI e sele¬ 
zionate tutte le schede che hanno SI in 
questo campo: nel paragrafo prece¬ 
dente abbiamo elencato nel dettaglio 
tutti i comandi da eseguire; ripeteteli 
esattamente, mettendo SI al posto di 
DIPENDENTE. 


Figura 3 


Figura 4 


File AGENDA TEL. REU/AGG/WODIFICA 


Esc : Menù Base 


File: AGENDA TELEF. 


CERCA RECORD Esc: E1 in ma Valore 


Selezione: Tutti i record 


Cerca tutti i record contenenti 


Record 1 di 93 


COGNOME: Bianchi 
NOME: Giuseppe 
VIA: Via Rodi 1 

CAP-CITTA-PROV.: 24100 Bergano (BG) 
UFFICIO 
(035)-773091 
-: CASA 

(035)-221733 
NOTE: DIPENDENTE 
NOTE: - 
AUGURI: SI 


Batti un valore o usa i comandi S 


§-? per Aiuto 


Batti i dati di confronto: Bianchi 


39K Disp. 



















Stampa dell’Agenda 

Può non essere sempre comodo ave¬ 
re l’Agenda inserita nel computer; 
conviene in questo caso avere un elen¬ 
co in ordine alfabetico stampato su 
carta. Premete mela vuota S: vi si pre¬ 
senta il menù della figura 12. Con le 


frecce su e giù scegliete l’opzione Crea 
un nuovo formato "tabella" e RE¬ 
TURN. Il computer chiede un nome 
da dare al prospetto: lo chiamiamo 
RUBRICA. Dopo aver battuto RE¬ 
TURN, sul video compare la videata 
di figura 13. Posizionatevi col cursore 
all’inizio di NOME e, tenendo premu¬ 


ta mela vuota, premete freccia destra 
per spostare NOME a destra di CO¬ 
GNOME. Sempre tenendo premuta 
mela vuota, premete freccia su e posi¬ 
zionate COGNOME subito dopo NO¬ 
ME, lasciando solo uno spazio tra i 
due. Con il cursore sempre sotto la N 
di NOME, premete mela vuota J: ser- 


Flgura 5 

File: AGENDA TELEF. ORDINAMENTO Est! 

Selezione: Tutti i record 


Questo file deve essere ordinato 
nel campo: COGNOME 

Tipo di ordinamento: 

1. Oa A a 2 

2. Da 2 ad A 

3. Da 0 a 9 

4. Da 9 a 0 


Figura 6 

File: AGENDA TEL. SELEZIONA RECORD Esc: Rev/Agg/Noditici 

Selezione: 


1. COGNOME 

2. NOME 

3. VIA 

4. CAP-CITTA-PROV. 

5. - 

6 . - 

7. - 

8 . - 

9. NOTE 

10. NOTE 

11. AUGURI 


Batti un numero, o usa le Frecce e premi Return 

3<SK Disp. 

Batti un numero, o usa le Frecce e premi Return 

35K Disp. 

Figura 7 

File: AGENDA TEL. SELEZIONA RECORD 

Esc: Rev/Agg/Modifica 

Figura 8 

File: AGENDA TEL. SELEZIONA RECORD 

Esc: Elimina Valore 

Selezione: NOTE 


Selezione: NOTE uguale 


1. uguale 

2. è maggiore di 

3. è minore di 

4. è diverso da 

5. è vuoto 

6. non è vuoto 

7. contiene 

8. inizia con 

9. Finisce con 

10. non deve contenere 

11. non deve iniziare con 

12. non deve Finire con 


Batti un numero, o usa le Frecce e premi Return 

35K Disp. 

Batti i dati di confronto: DIPENDENTE 

3SK Disp. 

Figura 9 

Fi1 e : AGENDA TEL. SELEZIONA RECORD 

Esc: Rev/Agg/ModiFica 

Figura IO 

File: AGENDA TEL. REV/AGG/MODIFICA 

Esc: Menù Base 

Selezione: NOTE uguale DIPENDENTE 


Selezione: NOTE uguale DIPENDENTE 




COGNOME NOME VIA 

CAP-CITTA-PRW. - 



Verdi 

Antonio 

Vittorio Veneto 20100 Milano (M UFFICIO 

1. e 

Verdi 

Antonio 

Vittorio Veneto 20100 Milano (M UFFICIO 

2. o 

Bianchi 

Giuseppe 

Rodi 1 

24100 Bergamo ( UFFICIO 

3. Fino a 

Bianchi 

6'iuseppe 

Rodi 1 

24100 Bergamo ( UFFICIO 


Bianchi 

Giuseppe 

Rodi 1 

24100 Bergamo ( UFFICIO 


Bianchi 

Giuseppe 

Rodi 1 

24100 Bergamo < UFFICIO 


Batti un numero, o usa le Frecce e premi Return 


35K Disp. 


Batti un valore o usa i comandi § 


§-? per Aiuto 
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*ulfideo* 


KEYDATA 


Tre confezioni di diskette originali più un table clock quartz ad 

UH PREZZO STREPITOSO!* 





Rivolgiti 

immediatamente 


presso 

il tuo rivenditore 
di fiducia 


Distributore esclusivo per l'Italia 


* ATTENZIONE L’OFFERTA E VALIDA FINO A GIUGNO 


m 


informatico 


rre 


Via Umbria, 10-36/A 

Tel. (0522) 38655/512345/31334 

42100 Reggio Emilia 

























ve ad allineare COGNOME e NOME 
tra loro, qualunque ne sia la lunghez¬ 
za. Con la medesima procedura spo¬ 
state e allineate VIA, CAP-CITTA- 
PROV. e le quattro lineette. Dopodi¬ 
ché, posizionate il cursore a sinistra, 
esattamente nella riga sotto COGNO¬ 
ME, in corrispondenza della C, e pre¬ 


mete mela vuota E, tante volte quante 
ne occorrono per ottenere il risultato 
visibile nella figura 14 , per eliminare 
cioè tutte le righe che non interessano. 

Si tratta ora di stabilire i parametri 
di stampa: premete mela vuota P e 
state attenti essenzialmente a tre cose. 

1. Battete CP, RETURN, 17, per 


selezionare il carattere più piccolo di¬ 
sponibile su stampante; 

2. Controllate l’altezza della carta 
che state usando (11 pollici? 12?) e 
inserite i parametri relativi battendo 
AC, RETURN, 11 (o 12, a seconda, 
appunto); 

3. Copiate le opzioni di formato 
esattamente come appaiono nella fi¬ 
gura 15. Per cambiare una di queste 
opzioni da SI a NO e viceversa, basta 
battere le loro iniziali (CS, SL, ST, 
OL, US) seguite da RETURN. 

Battete infine ESC, mela vuota S, 
scrivete la data del giorno, RETURN, 
impostate quante copie di stampa vo¬ 
lete avere (massimo 9), RETURN e in 
pochi minuti il vostro elenco sarà 
stampato come compare nella figura 
16. 

Se non vi interessa che in questo 
elenco figuri l’indirizzo, perché vi ba¬ 
sta l’elenco dei nominativi seguito dai 
numeri telefonici, basta che eliminiate 
anche i campi VIA, CAP-CITA— 
PROV. Oppure se, viceversa, volete 
aggiungere nell’elenco i campi relativi 


Figura 11 

Fili: AGENDA TELEF. SELEZIONA RECORD Eie: Rn/Agj/Nodifici 

Selezione : COGNOME uguale BIANCHI 


Seleziona tutti i record? No Si 


Figura 12 

File: AGENDA TEL. NENU DI PROSPETTO Esc: Rev/Agg/Modifica 

Prospetto: Nessuno 


1. Prendi un tornato prospetto 

2. Crea un nuovo tornato 'tabella* 

3. Crea un nuovo tornato 'etichetta* 

4. Duplica un tornato esistente 

5. Cancella un tornato 


Figura 13 

File: AGENDA TEL. FORMATO PROSPETTO Esc: Menù di Prosit::o 

Prospetto: RUBRICA 
Selezione: Tutti i record 


COGNOME 

NOME 

VIA 

CAP-CITTA-PROV. 


NOTE 

NOTE 

AUGURI 

-Ogni 

record sari stampato su 11 linee- 


Batti un numero, o usa le trecce e premi Return 


30K Disp. 


Usa le opzioni della Pagina Aiuto 


§-? per Aiuto 


Figura 14 

File: AGENDA TEL. 
Prospetto: RUBRICA 
Selezione: Tutti i record 


FORMATO PROSPETTO 


Esc: Menù di Prospetto 


Figura 15 

File: AGENDA TEL. 
Prospetto: RUBRICA 


PARAMETRI DI STAMPA 


Esc: Fornato Prospetto 


COGNOME (NOME (VIA <CAP-CITTA-PROV. <- <- <- <- 
-Ogni record sari stampato su I linee- 


-Margini Sinistro e Destro- 

-Margini Alto e Basso- 

LC: Larghezza Carta 

8,0 Pollici 

AC: Altezza Carta 

11,0 Pollic 

MS: Margine Sinistro 

0,0 Pollici 

MA: Margine Alto 

0,0 Pollic 

MD: Margine Destro 

0,0 Pollici 

MB: Margine Basso 

0,0 Pollic 

CP: Car./Pollice 

17 

LP: Linee/Pollice 

4 

Lunghezza Linea 

8,0 Pollici 

Altezza di Stampa 

11,0 Pollic 

Car ./linea (stin) 

134 

Righe per pagina 

44 


Usa le opzioni della Pagina Aiuto 


S-? per Aiuto 


-Opzioni di tornato- 

CS: Codici Speciali per la stampante No 
SL: Stampa Lineette se un campo è vuoto No 
ST: Stampa Titolo a ogni inizio pagina Si 
OL: Onetti Linea se tutti i campi sono vuoti Si 
US: Usa lo Stesso numero di linee per ogni record Si 


Batti le 2 lettere del parametro 29K Disp. 
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POCHE LIRE 



Le stampanti MT/85, a 80 colonne, e MT/86, a 136 
colonne, rappresentano una nuova frontiera nel 
settore delle stampanti a basso costo, 

Basso costo, ma non bassa qualità e basse 
prestazioni, infatti ecco le credenziali di questi due 
nuovi prodotti. 

Velocità a 180 cps. bidirezionale ottimizzata, NLQ 
a 45 cps., grafiche, possibilità di 8 fonti alternative 
di caratteri e naturalmente la completa 

compatibilità con il PC IBM. 

Il prezzo: il più competitivo del 
mercato in questa fascia di 
prestazioni. 

Naturalmente anche le MT/85/86 
oltre ai trattori hanno anche 
trascinamento a frizione e 
consentono pertanto il 
trattamento del foglio singolo, 





MANNESMANN 

TALLY 


20094 Coreico (MI) - Via Cadamosto, 3 
Tel. (02) 4502850/855/860/865/870 • Telex 311371 Tally I 
00137 Roma - Via I, Del Lungo, 42 -Tel. (06) 8278458 
10099 San Mauro (TO) - Via Casale, 308 - Tel. (011) 8225171 
40050 Monteveglio (BO) - Via Einstein, 5-Tel. (051) 832508 





























Figura 16 

File: AGENDA TEL. Page 1 

Report: RUBRICA 15 maggio 1985 

Altobelli Giuseppe Via Bellini 90 20100 Milano UFFICIO (021-5598231 CASA <02)-666298 

Belli Patrizia Via Timawo 87 20090 Segnate (MI) UFFICIO (02)-6799032 CASA (02)-774533 

Bianchi Giuseppe Via Rodi 1 24100 Bergamo (BG) UFFICIO (035)-7?3091 CASA <0351-221733 

Cesari Cesare Via Sanzio 18 20100 Milano (MI) UFFICIO (02)-5577 CASA (02)-669943 

Giacomelli Andrea Via Del Castagno 76 00100 Roma UFFICIO (06W655908 CASA 432219 

Rinaldi Antonio Via Vicenza 55 00100 Roma UFFICIO <06)-2388 CASA (06)-4498322 

Romoli Romolo Via Roma 55 36100 Vicenza UFFICIO (0444)-322289 CASA <0444)-667444 

Sabatini Mario Via Del Carroccio 13 20100 Milano UFFICIO (02)-4335788 CASA <039)-877652 

Siroli Domenico Via L. Da Vinci 54 24100 Bergamo (BG) UFFICIO <035)-556439 CASA (035)-885311 

Verdi Antonio Via Vittorio Veneto 15 20100 Milano (MI) UFFICIO <02)-4457863-8863210 CASA (039)-665400 


Figura 17 

File: AGENDA TEL. FORNATO PROSPETTO Esc: Menù di Prospetto 

Prospetto: AUGURI 
Selezione: AUGURI uguale SI 


COGNOME (NONE 
VIA 

CAP-CITTA-PRIW. 


-Ogni record sari stampato su 6 linee- 


Usa le opzioni della Pagina Aiuto S-? per Aiuto 


Figura 18 

File: AGENDA TEL. PARAMETRI 01 STANPA Esc: Formato Prospetto 

Prospetto: AUGURI 


-—Margini Sinistro e Destro- -Margini Alto e Basso— 


LC: Larghezza Carta 

8,0 Pollici 

AC: Altezza Carta 

1,0 Pollic 

MS: Margine Sinistro 

0,0 Pollici 

MA: Margine Alto 

0,0 Pollic 

MD: Margine Destro 

0,0 Pollici 

MB: Margine Basso 

0,0 Pollic 

CP: Car./Poliice 

17 

LP: Linee/Pollice 

6 

Lunghezza Linea 

8,0 Pollici 

Altezza di Stanpa 

1,0 Pollic 

Car ./linea (stiri) 

136 

Righe per pagina 

6 


-Opzioni di formato- 

CS: Codici Speciali per la stampante No 
SL: Stampa Lineette se un campo è vuoto No 
ST: Stampa Titolo a ogni inizio pagina No 
OL: Ometti Linea se tutti i campi sono vuoti Si 
US: Usa lo Stesso numero di linee per ogni record Si 


Batti le 2 lettere del parametro 26K Oisp. 


alle NOTE o agli AUGURI, basta che 
non li cancelliate, come avevamo indi¬ 
cato più sopra, e li allineiate in una 
seconda riga, procedendo nel modo 
già descritto. 

Stampa degli auguri 

Il secondo formato di stampa di cui 
avete bisogno è 1’ etichetta per effet¬ 
tuare qualunque spedizione di circola¬ 
ri, memo, o altro, ma soprattutto per 
trovarsi già bell’e fatto il lavoro di spe¬ 
dizione degli auguri a Natale e a Pa¬ 
squa, che tutte le volte fa perdere mol¬ 
to tempo perché bisogna sfogliare 
un’intera agenda, compilare elenchi 
che poi vengono battutti a macchina, e 
così via. Se avrete l’accorgimento, a 
mano a mano che inserite i nominativi 
nell’agenda telefonica, di segnare in 


partenza un SI o un NO nel campo 
AUGURI, vi ritroverete ad aver ri¬ 
sparmiato un sacco di tempo. 

Premete mela vuota S per seleziona¬ 
re il menù della figura 12, scegliete 
l’opzione Crea un nuovo formato "eti¬ 
chetta", datele il nome AUGURI e, ese¬ 
guendo le operazioni già indicate più 
sopra, riproducete il formato della fi¬ 
gura 17. Un’avvertenza: è chiaro che 
stamperete gli indirizzi sulle apposite e 
comode etichette autoadesive. Per ot¬ 
tenere una stampa perfetta, dovete 
stare attenti, nel selezionare poi i pa¬ 
rametri di stampa, che le righe per 
pagina corrispondano esattamente al¬ 
le righe occupate da ciascun record. 
Nella figura 17, potete vedere che le 
righe del record saranno sei; nella fi¬ 
gura 18, le righe per pagina sono ap¬ 
punto sei, e vengono ottenute selezio¬ 
nando l’altezza della carta, in questo 


caso uguale a uno. Le righe per record 
dipendono ovviamente dall’altezza 
delle etichette: se usate etichette alte 
otto righe, l’altezza della carta deve 
essere 1,4, e così via. 

Se qualcosa non vi è chiaro, potete 
scrivere ad Applicando, Rubrica Ap- 
pleWorks, per chiedere ulteriori delu¬ 
cidazióni o sottoporre quesiti relativi a 
problemi o, ancora, esprimere le vo¬ 
stre esigenze relative a eventuali mo¬ 
delli che non siete riusciti a creare. 

Saranno bene accolte anche le espe¬ 
rienze di coloro che ritengono di aver 
risolto efficacemente problemi specifi¬ 
ci. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- k 
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Provasu strada 
Maqntosh. 

Dal 15 Aprile presso i Rivenditori Apple. 







Vieni a prorare Macintosh 
come migliorare la tua e 


Mai guida sarà più facile! Un dito - il tuo dito 
- basta per lavorare con Macintosh, il rivoluzionario 
personal computer Apple. 

Senza dover imparare il computerese, ti basta 
premere il tasto del mouse per dare ogni tipo di 
comando a Macintosh. 

Così 5 minuti dopo averlo conosciuto, sei già 
in grado di usare Macintosh produttivamente, 
perché Macintosh dispone di un’ampia biblioteca di 
programmi aziendali e professionali, per soddisfare 
tutte le esigenze della tua attività - che tu sia 
direttore marketing, giornalista o manager, 
commercialista, direttore finanziario o architetto, o 
qualunque altro sia il tuo job. 

Puoi verificarlo tu stesso, partecipando alla 
Prova su strada Macintosh. I rivenditori Apple ti 
aspettano. 

Avrai a tua disposizione, per questa stimolante 
esperienza, strumenti tecnici specializzati: decine di 
programmi da usare da solo con l’aiuto di 
un’audiocassetta e di un libretto che descrive 
accuratamente ogni operazione. 

Inoltre: un Macintosh; un tavolo di lavoro e, 
naturalmente, un esperto, pronto a soddisfare ogni 
tua curiosità professionale. 

Potrai lavorare con Macintosh nel trattamento 
dei testi, e per disegnare; potrai conoscere i nuovi 
potenti programmi per archiviare e gestire 
informazioni; per affrontare con sicurezza le 
operazioni contabili più complesse. E ancora, 
utilizzerai programmi di grafica aziendale; e la 
gestione di progetto non sarà più un argomento 
ostico. 

In trenta minuti potrai renderti conto di 
quanto la qualità del tuo lavoro può essere 
migliorata, con risparmio di tempo, e con la 
possibilità di prendere la decisione finale dopo aver 
esaminato in tutti i particolari qualsiasi alternativa si 
presenti. 
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Scopri in trenta minuti 
icienza professionale 


Terminata la Prova su strada, forse ti troverai 
a considerare la prospettiva di voler lavorare in un 
modo più interessante e produttivo. 

Per riflettere su questo abbiamo preparato il libro 
"Macintosh. Un nuovo modo di lavorare": 120 pagine 
dedicate al computer professionale e ad una serie 
esauriente di applicazioni e software. 

Compila e spedisci la cartolina che trovi dal 
rivenditore, aggiungendo i tuoi commenti 
sull’esperienza avuta con Macintosh. 

Sarà nostro piacere inviarti a casa il 
libro, senza alcuna spesa da parte tua, 
fino ad esaurimento dell’alta tiratura 
realizzata. 

Se invece decidi subito di acquistare 
un Macintosh, questo è il momento di 
fare un buon affare, anzi tre: un 
programma applicativo - a scelta da un 
elenco dei dodici più interessanti - 
con uno sconto speciale di L. 200.000; 
le Pagine Gialle Elettroniche SEAT al prezzo 
straordinario di L. 100.000; programmi 
a scelta dal catalogo Bit&Bytes, con uno 
sconto del 10%. 

Hai mai fatto una Prova su strada 
così stimolante? 



































Basta il tuo dito pa 



é Rrchiulo Composizione Strumenti Caratteri Dimensioni Stile 


un 


Tre tavole mostrano le 
immagini di ciò che hai a 
disposizione: gli strumenti, 
gli spessori del tratto, i retini, 


Non sei obbligato a lavorare 
solo nell'area del disegno che 
vedi sullo schermo: puoi 
spostarti a destra, a sinistra, 


Il puntatore assume la forma 
dello strumento che hai scelto. 
, la matita, 


Per indicare la parte che vuoi 
ritagliare dallo schermo basta 
racchiuderla in un rettangolo 
tratteggiato. 


V 


Punta. 



Indicare col dito è la comunicazione più 
elementare che conosciamo. 

Punta l’indice il bambino che ancora non 
parla, punta l’indice il cartello che indica 
l’uscita. 

Per questa ragione Apple ha pensato che il suo 
nuovo Macintosh, attuale punto di riferimento per 
ogni personal computer, dovesse abbandonare ogni 
dialogo basato su un linguaggio artificioso ed 
impegnativo, ed imporre i modi espressivi umani 
più semplici, come puntare il dito sulla cosa che si 
desidera. 

E Macintosh funziona così: muovi una piccola 
simpatica scatoletta - il mouse - collegata a 
Macintosh sul piano del tuo tavolo, e sposti così 
una freccia sullo schermo, il puntatore. 

Porti il puntatore sulle immagini dello 
schermo che rappresentano gli strumenti che vuoi 
impiegare (matita, gomma, calcolatrice, cestino...) 
e premi il tasto sul mouse. 


Hai scelto così lo strumento e sei 
pronto ad impiegarlo. Oltre alle immagini lo 
schermo ti offre delle liste di operazioni che 
puoi leggere portando il puntatore sul loro 
titolo e cliccando sul mouse. Allo stesso modo 
scegli l’operazione dal menù puntando col 
mouse e cliccando. Nella illustrazione qui sopra 
abbiamo eseguito un disegno usando il 
programma MacPaint ed abbiamo trasformato il 
puntatore in una matita, per poter disegnare. 

Taglia. 

Ora, se desideri trasferire questa 
illustrazione su una pagina di testo, per 
esempio una lettera, fai la cosa più naturale 
di questo mondo: delimiti un’area intorno 
all’illustrazione portando il puntatore sul 
simbolo giusto (rettangolo tratteggiato). 

Apri uno dei menù situati nella parte 



















































usare Macintosh. 


Macintosh “ricorda'’ l’immagine Macintosh ti crea 

che hai ritagliato e la conserva automaticamente lo spazio per 

per te. inserire nel testo la tua 

illustrazione. 



Con Macintosh puoi stampare 
qualsiasi documento per il tuo 
lavoro e per l’ufficio, anche la 
modulistica. 


fiuMtru t« r. 




alta dello schermo e scegli il comando 
“taglia” tra quelli che appaiono 
premendo sul mouse. Lascia il 
pulsante e... zac, è fatto 

Incolla. 

A questo punto la tua 
illustrazione 
rimane im¬ 
magazzinata 
nella 
grande 
memoria di 
Macintosh. 
Inserisci 
ora il 
dischetto 
del 

programma 
MacWrite 
per il 

trattamento 


dei testi (ne parliamo più avanti) e scrivi la lettera. 
Stabilisci - anche dopo aver ultimato la lettera - il punto 
dove vuoi inserire l’illustrazione, seleziona Incolla dal 
menù Composizione, ed è fatto! 

Stampa. 

Come puoi ben immaginare a questo punto 
tutto il lavoro per produrre una lettera “illustrata” 
è completato, e Macintosh ha in memoria ogni dato 
di tutto ciò. Ottenere una stampa su carta è solo un 
dettaglio. La stampante qui raffigurata è la 
ImageWriter di Apple, e stampa sia i testi che le 
immagini con riproduzione ad alta qualità. 

Scegli col puntatore la voce “stampa” dal 
menù dei comandi, rilascia il pulsante ed è tutto 
fatto. La stampante si mette in azione e la lettera 
comincia ad apparire sul foglio. Ricorda.- tutto ciò 
che appare sullo schermo viene fedelmente stampato 
sulla carta. P.S. Con la nuova stampante LaserWriter 
il livello di qualità supera addirittura quello della 
immagine-video, per questo puoi evitare un viaggio 
in tipografia ed i costi relativi. 






























I tuoi pensieri subito 
in bella copia. 


Nelle pagine precedenti abbiamo sottolineato 
la facilità d’uso di Macintosh. Ora vogliamo mostrare 
come anche il tuo lavoro quotidiano diventa più 
facile e, se non ti dispiacciono i cambiamenti, molto 
più incisivo. 

Cominciamo daU’ABC, cioè dal trattamento 
dei testi, e usiamo MacWrite, il programma creato 
apposta per Macintosh e per tutti coloro che con 
le parole lavorano tutti i giorni - per scrivere 
un promemoria, un libro, oppure una relazione. 

Con Macintosh e MacWrite una cosa è certa: 
per ordinare i testi nel corpo e nello stile desiderati, 
con le spaziature e i margini preferiti, bastano un 
dito e un tasto: il tuo indice e il tasto del mouse. 
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VALUTAZIONE PRODOTTO 


Linea composta da gusti diversi, che richiamano quelli dei prodotti caseari 
italiani più noti 


- Parmigiano 

- Gorgonzola 

- Pecorino 


di alcuni d'oltralpe In particolare di tipo francese e svizzero I 


Con MacWrite puoi dare ai tuoi scritti rimpaginazione e la forma che 
preferisci. 

1 menù di MacWrite, attivati dal mouse, 
consentono di cambiare caratteri, stile, formato del 
documento intero o di una parte di esso: parole 
singole o interi paragrafi, in centinaia di soluzioni. 
Inclusa la tua. 

Puoi personalizzare i tuoi documenti 
riportando sempre nell'intestazione, o a piè di 
pagina, il titolo del documento stesso, oltre alla 
numerazione progressiva delle pagine. Puoi 
anche indicare su ogni pagina la data e l'ora 
in cui hai stampato il documento, e ogni 
volta che ne farai una versione 
aggiornata, anche la data e l’ora 
verranno automaticamente aggiornati. 

E le azioni più semplici come 
cancellare, spostare e inserire? 


Diventano persino più banali, e non lasciano 
tracce estranee o enigmatici richiami sul foglio. 
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Puoi scegliere tra 7 caratteri, 8 stili e 6 corpi diversi, combinabili fra 
loro. 


Dove veramente Macintosh compie un miracolo 
proibito alla maggior parte dei personal computer, 
è nella abilità ad integrare, nella stessa pagina, parole 
ed immagini. Grazie all’incredibile potenza dei 32 bit, 
puoi trasformare la tua vecchia cartella dattiloscritta 
in un moderno strumento di comunicazione. 

Insomma, con Macintosh e MacWrite puoi fare 
tutto quello che la tua fantasia vorrebbe, ma che la 
macchina da scrivere non ti consente. 

In corpo 12, carattere Chicago, 

(DHQftraggOattQa 

0 con qualsiasi altro carattere e stile, fra i tanti 
disponibili. 

















































Fine M’avventura. 

D tuo archivio funziona! 


Il polveroso archivio, immagine del mondo 
aziendale di inizio secolo, non è solo un ricordo. 
L'era dell’informazione propone la necessità di 
potenziare la sua insostituibile funzione di fonte di 
dati, con strumenti più adeguati a guidare le 
decisioni: Macintosh e i programmi di Data Base. 

Nella gestione dei dati, appare scontato come 
il più avanzato dei computer professionali abbia 
dalla sua la potenza e la velocità. 

Ulteriori vantaggi derivano dalla qualità e dalla 
varietà del software applicativo che, unite alla logica 
“umana” di Macintosh, rendono possibili e facili 
analisi un tempo lunghe e costose. 

Lo stesso dito indice che usavi una volta per 
consultare le schede, usalo dunque sul mouse per 
lavorare con archivi elettronici molto più razionali 
e veloci. 

Filevision, ad esempio, ti offre la possibilità di 
archiviare le immagini, oltre alle parole e ai numeri. 



Con Filevision puoi associare delle immagini alle informazioni, in modo 
da usufruire di un archivio visivo. 


Utilizzando funzioni automatiche di disegno, 
puoi realizzare le immagini per associarle ai dati 
relativi, ed ottenere le informazioni che ti servono 
in modo più espressivo ed immediato. Poi, puoi 
decidere di consultare i dati nei diversi modi 
possibili: numericamente, graficamente, ecc. 

Con le Pagine Gialle Elettroniche della SEAT, 
invece, puoi avere un colpo d’occhio 
immediato su una scelta di nuovi possibili 
fornitori su tutto il territorio nazionale; 
ciascuno qualificato da informazioni 


selezionate. Ciò è reso possibile dal collegamento via 
telefono di Macintosh al computer della Banca Dati 
della SEAT. 

Perchè Macintosh è collegabile con tutti i tipi 
più diffusi di “mainframe” e di personal computer; 
per ricevere ipformazioni o darne. 



Macintosh si collega con le banche dati disponibili in Italia e all'estero. 
Nell'esempio, le Pagine Gialle Elettroniche della SEAT. 

Se infine per te il sistema d’archiviazione più 
funzionale è quello classico a schede, bene, ora 
c’è MacCFS, uno schedario elettronico che puoi 
organizzare secondo le tue abitudini; inoltre MacCFS 
ti dà la possibilità di stampare indirizzi, ad esempio 
su etichette o buste per mailings: il tuo personale 
viene così sollevato da un lavoro indubbiamente 
noioso, e resta disponibile per dedicarsi ad attività 
più produttive. 

Tutto con un dito, il mouse e Macintosh. 
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CFS Schedario Specifiche Operazioni! 


I Aiuto 


Cerca auanti 
Cerca indietro 


Scheda numero... 3€= 


TELEFONO: 02/243598 


SOCIETÀ' : UEROPRCK Spa 
INDIRIZZO: Uia delle finde 23 
CRP/CITTA' : 20126 Hi Iano 

NUHERO DI DIPENDENTI : 70 
FRTTURRTO: 40.000.000.000 

RESPONSABILE UENDITE : Dr. Reste11 i GIUDIZIO: incerto 
AREA GEOGRAFICA: Lombardia 
PRODOTTI: Contenitori metallici 

NOTE: I contatti fino ad ora intrapresi dal responsabile 
acquisti Rinaldi danno garanzie sufficienti di affIdabIIIta' e 
di qual Ita'. 

Il nuouo responsabile (Pagani) non concorda con le impressioni 
del suo predecessore, urge una ualutazione piu' aprofondita 
prima di Inalare la lettera per l'abbozzo dei rapporti 
commercial I . 































Hai tutti i numeri per avere 
successo. Ora dalli a Macintosh 


Ci sono professioni la cui sostanza si evidenzia 
meglio in immagini, professioni la cui espressione è 
legata alla parola, detta e scritta; diffìcile però, in ogni 
caso, pensare al lavoro senza avere a che fare con 
i numeri. Gli stessi numeri che diventano la lingua 
d’obbligo in interi settori dell’attività umana. 

Ce un solo modo per affrontare in maniera 
agguerrita ma rilassata un problema con importanti 
contenuti numerici: usare Multipian della Microsoft 
per Macintosh. 



Con il foglio elettronico, Multipian svolge rapidamente i tuoi calcoli, 
anche i più complessi. Ad esempio, un Breakeven. 

Non hai idea di quanti calcoli puoi fare a 
questo punto con il tuo dito indice, se gli metti a 
disposizione il mouse! Puoi considerare l’andamento 
dei costi nei prossimi anni, e ad ogni nuovo 
elemento da te introdotto come ipotesi, Multipian 
ricalcola automaticamente tutte le conseguenze: 
tu puoi così valutare attentamente le scelte più 
convenienti per la tua attività. Senza perderti in 
ripetizioni di cifre, percentuali o totali. 

Naturalmente puoi lavorare contemporaneamente 
con più fogli contabili, per confrontare o 
integrare i risultati. 

Puoi anche creare formule che dipendono 
l’una dall’altra, e che possono essere risolte 
con l’utilizzo di procedimenti iterativi. 

Questa possibilità fa di Multipian un 
potente strumento in grado di creare 
modelli di analisi previsionali, eseguire 
calcoli contabili ed altre operazioni 
complesse. 



Per quante variazioni tu voglia considerare - in questo caso, di prezzo - 
Multipian ricalcola immediatamente ogni elemento. 


L’importante, con i numeri, è rimanere 
rilassati! 

Con Multipian e Macintosh anche i calcoli più 
complessi sono velocemente risolvibili: i menù - cioè 
le immagini visive con cui il computer ti offre le 
sue specifiche prestazioni - presentano tantissime 
opzioni possibili; inoltre con Multipian hai a 
disposizione delle “finestre di dialogo”, che ti 
consentono di rispondere nella maniera più semplice 
alle alternative che si presentano via via. 

Avrai ormai capito che nessuna attività può 
facilmente fare a meno di Multipian. Anche se per 
tradizione si considerano i numeri come appannaggio 
esclusivo di determinate categorie di lavoro... 
chi può resistere alla tentazione di valutare in 
anticipo il successo economico della propria azienda, 
nei prossimi dieci anni? 
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FATTURATO 


146000 


200750 



Affitto locali 

10000 


11000 


1 1 


Costi di produz. 

13000 
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Costi ammin. 

1000 




Spese Generali 

1000 


1000 




TOT. COSTI FISSI 


25000 


26800 



Materie Prime 

60000 


75000 


90000 ; 


Stipendi 

50000 


62500 


75000 ; 


Energia elettrica 

10000 


12500 


15000 ; 

TOT.COSTI VAR. 


120000 


150000 

; 180000 

TOTALE COSTI 


145000 


176800 

; 208400 

UTILE 


1000 


23950 

56590 


COSTI FISSI/FATT i 17,127. 
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Se le afre noi padano, 
chiedi aiuto ai grafici. 


Il mondo dei “tuoi numeri” è ora più saldo: 
non teme la stanchezza delle operazioni ripetute 
e gode l’affidabilità che viene dall’aver esplorato ogni 
ipotesi. Se ti chiedi quanto di tutto ciò dipenderà 
dalla tua capacità a comunicare con Macintosh, 
la risposta è semplice: niente. Con Macintosh non 
avrai mai il dispiacere di ricevere sullo schermo 
un laconico messaggio come “syntax error”. 

La sintassi di Macintosh è la stessa che hai tu. Usa 
lo stesso tuo percorso logico, si esprime in immagini 
che ti sono familiari, e non in gerghi per iniziati. 

In particolare, quando lavori con i numeri, devi 
convenire che ciò è estremamente importante. 

Le cifre non parlano sempre chiaro e non 
dicono, come dovrebbero, le stesse cose a tutti. 

Ora non c’è niente di meglio che rendere 
i numeri chiari e comprensibili per far apprezzare 
la validità di un’analisi. Hai certamente esperienza 
di interlocutori poco amanti delle cifre, o che 
le previsioni di sviluppo preferiscono “vederle”. 



Macintosh e Microsoft Chart visualizzano i dati dell'esempio 
precedente in un grafico immediatamente comprensibile. 

È il momento di cgrta millimetrata, 
squadra, righello e compasso? No, è il momento 
di Microsoft Chart, un programma di grafica 
aziendale studiato per Macintosh. Con la 
stessa semplicità con cui trasformi - con 
Multiplan - le tue cifre in risultati concreti, 
allo stesso modo con Microsoft Chart 
puoi trasformare i tuoi risultati in 
chiarissimi grafici. Innanzi tutto 
introduci i tuoi dati: è molto semplice, 


puoi batterli con la tastiera, oppure trasferirli con 
un comando direttamente da Multiplan. Perché Chart 
è lo strumento complementare ideale di Multiplan. 

Infatti puoi stabilire un collegamento fra un 
foglio elettronico di Multiplan e un documento di 
Chart; poi, ogni cambiamento che introduci all'interno 
del modello viene automaticamente riportato anche 
su Chart: di conseguenza, i tuoi grafici sono sempre 
aggiornati. Senza ulteriori interventi da parte tua. 



Microsoft Chart ti offre 40 diversi tipi di grafici, tra cui scegliere. 

Chart ti offre la possibilità di scegliere fra 
quaranta tipi di grafici diversi quello più 
rappresentativo per la tua analisi; e in più puoi idearne 
quanti altri vuoi. E scegliere per la legenda il corpo 
e il carattere che vuoi. Ora la maggior chiarezza 
nell’esposizione del tuo lavoro si traduce in maggior 
ascolto da parte dei tuoi interlocutori, e maggior 
comprensione del problema trattato. 
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[Progetto di ampliamento uffici - Terzo anno 


2 

Budget stanziato: 900 (ved. 

analisi costi - "Spese Generali" ) ! 
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1 A Quadr. 

^Quadr. 

S^Quadr. 

totali' 

5 

Spese murarie 

. Ì40" 

. 90 

50 

280 

6 

Aumento personale 

. 70 

. 55 ‘ 

150 

275 

7 

Fotocopiatrice 

. ’s 

. Ì2" 

6 

24 

8 

Aumentate spese gestione: 





9 

-Telefono 

. 9" 

. 9" 

12 

30 

IO 

-Installazione Telex 

. io 

. 5" 

5 

.20 

11 

-Pulizia e manutenz. 

.6 

. S 

8 

20 

12 

-Luce 

. 7 

..... 9 .. 

11 

27 

13 

-Cancelleria 

'"z" 

4 

8 

Ì 4 ' 

14 

-Macchine Ufficio 


. iVo 

100 

210 

15 

TOTALE 

. 250 

. 300 

350 

900 














































Se devi disegnare. 
0 tì piare ilio. 


Le professioni “creative” vanno assumendo 
importanza sempre maggiore nella nostra società. 

La fantasia trova in esse un’area di rivalutazione giorno 
dopo giorno, con esigenze nuove ed al passo con 
il nostro tempo. La necessità di essere sempre più 
innovativi e al tempo stesso tempestivi nel comunicare 
le nuove idee rende indispensabile l’ingresso del 
computer anche nella creatività. E oggi, con programmi 
come DaVinci, Mac The Knife e MacPaint, finalmente il 
computer non è più uno strumento di lavoro che offre 
applicazioni chiuse, ma una macchina per viaggiare più 
velocemente nell’immaginazione e nella creazione. 

Con DaVinci - Buildings, Interiors, Landscapes - 
tracciare piante e sezioni di interni o esterni, 
o disegnare costruzioni, è cosa davvero veloce. Certo, 
tu devi avere buone idee, per lavorare bene con 
DaVinci, ma puoi realizzarle tutte, e più velocemente. 

In scala, e con tutti i particolari che vuoi. 



Il layout dei nuovi uffici, disegnato con gli elementi di DaVinci della 
Hayden Software. 

Dai cornicioni più classici ai mobili più 
moderni; dalle prese di corrente alla darsena privata. 
In tutte le dimensioni desiderate, ruotando, 
allargando, comprimendo. La simmetria non è un 
problema, perché ti basta disegnare solo la metà 
del tuo elemento, Macintosh poi copia, ruota, 
incolla! Oppure puoi usare DaVinci come 
archivio elettronico di idee tue e solo tue, 
realizzate magari con l’aiuto del 
catalogo elettronico Mac The Knife, 
una raccolta di oltre 500 illustrazioni, 
simboli, motivi ornamentali, caratteri. 


Una piccola cosa copiata da Mac The Knife può essere 
utilizzata da te in mille modi diversi. E creativi. 



Màc The Knife: uno strumento per la tua creatività grafica. 

Se però preferisci il disegno a mano libera, o se 
proprio questa è l’esigenza del tuo lavoro, allora usa 
soltanto MacPaint. Sotto la guida di MacPaint la tua 
mano, muovendo il mouse, tràccia i segni liberi con 
una dotazione ricchissima di tratti (incluso lo spruzzo 
di uno spray!) che puoi selezionare dalla tavolozza degli 
strumenti. Con una scelta di quaranta fondi, oltre a 
quelli che puoi creare tu, riempi, circondi, differenzi. 
Puoi spostare le immagini, ruotarle, conservarle in un 
blocco schizzi elettronico, per riutilizzarle più tardi 
o inserirle in un documento scritto. Perché MacPaint, 
usato con MacWrite, ti dà la possibilità di produrre una 
pagina scritta ed illustrata. Particolare non privo di 
importanza: questi due programmi sono forniti 
gratuitamente all’acquisto di Macintosh. 































































































































I tuoi progetti hanno 
una scadenza. Nondue,nétre. 




Nelle pagine precedenti hai conosciuto gli 
strumenti che ti offre Macintosh per trattare i testi, 
gestire informazioni, elaborare dati, produrre grafici, 
disegnare e visualizzare professionalmente. 

Ora vogliamo parlarti della “gestione di progetto’’. 


Il PERT di MacProject ti dice subito chi deve fare cosa, e quando. 


Di solito, questo termine richiama alla mente 
immagini di budget elevati da ripartire fra numerose 
attività che devono essere completate in tempi 
troppo ristretti. 

Forse pensi anche che per fare ciò con un 
computer sia necessario un software complesso, 
difficile da utilizzare e costoso, oltre ad un computer 
di proporzioni inaccessibili per un professionista. 

Bene, non è così. Perché se hai Macintosh, 
puoi utilizzare MacProject, lo straordinario 
programma per pianificare e controllare i progetti. 
Ora una grande memoria, una logica ferrea e tutta 
la velocità che ti serve lavorano per te. 

Devi solamente fornire a Macintosh le 
informazioni relative alla durata delle singole 
attività, le loro eventuali interdipendenze 
e l’indicazione della data ultima entro la quale 
il progetto deve essere terminato. 

Se vuoi valutare anche l’aspetto 
finanziario, allora aggiungi i costi di ogni 
singola attività. Al resto pensa MacProject: 
calcola tutti i passaggi intermedi, ne indica 
le date ed evidenzia il percorso critico, 
cioè la sequenza che unisce le attività il 
cui ritardo farà slittare l'intero progetto. 

Se intervengono nuovi fattori, non devi 


fare altro che inserire i nuovi elementi: MacProject è in 
grado di ricalcolare ogni passaggio, costi compresi. 


•Aggiungendo una nuova attività, MacProject ridefinisce il percorso critico 
- in neretto - aggiornando ogni fase. 


Questo significa che puoi fare varie ipotesi di 
lavoro, domandarti cosa può cambiare nel tuo 
progetto senza pregiudicare il risultato, o cosa 
potresti fare per ottimizzare il progetto. 

Se hai valutato anche i costi delle attività, Mac 
Project ti fornisce il “CashFlow”, cioè una tabella che 
ti mostra di quanti soldi hai bisogno in ogni specifico 
momento nel corso del progetto. E nel calcolare le date 
e le scadenze, MacProject tiene conto delle festività 
e delle giornate non lavorative! Certo, MacProject non 
può pianificare al posto tuo, esalta però al massimo 
le tue capacità organizzative e ti permette di avere 
sempre un piano aggiornato, senza dover aggiungere 
al tuo PERT il tuo tempo per modificarlo. 



























































































= Easy Cheese 


é Hrchlulo Comp. Foglio flttiuità Esposlz. Date Caratteri Stile 


Nome Attività 


Giorni Inizio Anticipato Fino Anticipata Inizio Ritardato F 


Inizio 

0 

22-10-84 

22-10-84 

22-10-84 


Studio della Promozione 

10 

22-10-84 

5-11-84 

29-10-84 


Contratto Fornitori 

3 

22-10-84 

25-10-84 

23-10-84 


Licenza d’importazione 

8 

22-10-84 

1-11-84 

22-10-84 


Test Formula 

2 

25-10-84 

29-10-84 

30-10-84 


Progetto Contenitore 

4 

25-10-84 

31-10-84 

26-10-84 


Inizio Produzione 

0 

1-11-84 

1-11-84 

1-11-84 


Revisione Pubblicità' 

5 

5-11-84 

12-11-84 

12-11-84 


Spedizione Prodotto 

12 

1-11-84 

19-11-84 

1-11-84 


Lancio Prodotto 

0 

19-11-84 

19-11-84 

19-11-84 



































Proposta per una nuova linea di prodotti 
caseari per il mercato USA. 


IMMARIO 


- Scheda valuazlone prodotto 

- Stima costi di produzione 

- Statistiche di mercato 

- Proposte grafiche 

- Valutazioni economiche 

- PERT 


Giorgio Galiborti 
USA Branch Office 
NT. 

14 Giugno 1985 
IO .30 a.m. 











Visto. Si stampi. 


Dopo aver visto tutto quello che Macintosh 
può fare per migliorare il tuo lavoro e come il 
software oggi disponibile possa coprire ogni tua 
esigenza, è il momento di trasferire tutto ciò sulla 
carta. 

Perché sai quanto sia importante riuscire a far 
“percepire'' ai tuoi interlocutori il vero significato 
che hai voluto attribuire al tuo lavoro, e sai come 
uno scritto sia inequivocabile. 



ATTUALE RETE DI DISTRIBUZIONE PER 

LINEA "EASY CHEE S E" 



LOCALITÀ - 

California 

Beverly Hills 

DISTRIBUTORE FATTURATO 

Happy Gourmet Ine 4.900.000 $ 

CONTATTO 

David Pitman 

Florida 

Orlando. 

World’s Specialties 

1.200.000 J 

Susan Gilman 

Boston 

Tasty Food 

7.000.000 J 

Thomas Brook 

Illinois 

Chicago 

Cheese Paradise 

5.600.000 $ 

Liz Tamblin 

Ohio 

Cleveland 

Ready-to-Eat 

2.000.000 J 

Rate Stuart 

New York 

Albany 

The Dairy 

3 400.000 $ 

Scott Mason 

Michican 

Detroit 

J. Blake & Son Ine 

1.800.000 $ 

Chris Bedford 

New Jersey. 

Paterson 

Home Buffet 

4.000.000 $ 

Jane Tailor 



Per questo, al termine di questa lunga 
chiacchierata su Macintosh, vogliamo presentarti la 
sua stampante: ImageWriter. 

ImageWriter è in grado di offrirti un’alta qualità di 
stampa, e tu sai che in certi casi la forma vale quasi 
quanto la sostanza. Parole, disegni, schemi grafici, 
tutto ciò che hai creato sullo schermo diventa un 
documento scritto. 


Con ImageWriter i tuoi documenti, le tue 
relazioni, i tuoi progetti, e tutto quello che hai 
saputo creare con l’aiuto di Macintosh, diventano 
efficaci strumenti di comunicazione, in grado di 
convincere e stimolare i tuoi interlocutori; e tu puoi 
organizzare ed aggiornare i tuoi documenti in modo 
più funzionale. 

E presto sarà disponibile anche la nuovissima 
stampante LaserWriter in grado di offrirti una 


[paìsw miFraiF 

Qui di seguito riporto la tabella di 
allocazione delle risorse relativa al progetto 
di lancio di Easy Cheese. 



qualità fotografica che ti eviterà viaggi in tipografia 
e costi relativi. 

Cos’altro aggiungere a quanto detto finora 
a proposito di Macintosh e del tuo lavoro? Poco, 
ma importante: fai una visita al rivenditore Apple; 
per provare di persona quanto più piacevole e 
produttivo può diventare il tuo lavoro domani. 

Sei il benvenuto. 












































Qui puoi scoprire come lavorerai domani. 


Valle D’Aosta 

INFORMATIQUE - Av.du Conseil des Commis 16 Aosta 
INFORMATIQUE 2 - Reg. America 31 Quatt 

Piemonte 

COMINFOR SISTEMI • C.so Telesio 4/B - Torino 
DIMENSIONE PERSONAL Via Bettola 22/E • Torino 
TECNOSYSTEM COMPUTER SHOP C.so Francia 12 • 
Torino 

TEKNO COMPUTERS - Via Madama Cristina 31/C Torino 
THEMA - Via Statuto 10 ■ Cuneo 
CENTRO COMPUTER • Via Paruzza 2 Alba 

D. R. Via Morera 3 • Novara 

Lombardia 

AG INFORMATICA • Via G. Silva 49 Milano 
ALL'INFORMATICA • Via Lazzaretto 2 ■ Milano 
C.E. COMMUNICATIONS ENGINEERING • P,Firenze 4 
Milano 

COMPUTER SHOP DELTRON ■ Viale Gransasso 50 - Milano 
ESPRIT Vìa Bergamini 13 Milano 
IL TEMPIO DEL COMPUTER Vìa Panari 2 • Milano 
INFORMATION TECHNOLOGY Via Dei Bossi 7, 

Ang, Via Broletto • Milano 
MICROTECH SISTEMI • V.le Piave 7 • Milano 
POUSISTEMI Via Derna 19 Milano 
SMALL BUSINESS COMPUTERS • Via Vitruvio 38 • Milano 
COMPUTER LAND1A - POLLI V.le Martiri Libertà 72 
Lissone 

ESI - Via Cavallotti 11 • Monza 
PERSONAL COMPUTER SHOP ■ Via L Da Vinci 36 • 
Trezzano S/N 

COMPUTER AREA Via AVolta 27/A Villasanta 
COMPUTER AREA SHOW ROOM • Via Carducci 2 - 
Villasanta 

IL MONDO DELL'INFORMATICA Via Pitentino 8 • 
Bergamo 

O. R.O. - Via Carducci 9/A ; Bergamo 
STUDIO 15 Via Quarenghi 60 • Bergamo 
IL COMPUTER - Via Solferino 5 - Brescia 
L’INFORMATICA • P.zza Vescovado 1 Brescia 
BIT SHOP - Via Quarena 120 • Gavardo 

IRPE INFORMATICA ■ Via Cadorna 3 Como 
MAS.H. COMPUTER SYSTEMS Via Della Rocchetta • 
Ang.C.so Garibaldi • Pavia 

MAS.H. COMPUTER SYSTEMS Via XX Settembre 33-35 
Voghera 

IRPE - Via Dei Carantani 1 • Varese 
IRPE COMPUTER Via Pegoraro 8 - Gallarate 

Trentino Alto Adige 

S1.GE. COMPUTER SHOP Via Giovanni a Prato 22 • 

Trento 

Friuli Venezia Giulia 

COMPUTERMARKET (DEC SISTEMI) - Via Valdirivio 6 
Trieste 

ELCOM - C.so Italia 149 Gorizia 
ELECTRONIC CENTER - V.le Libertà 79 Pordenone 

P. S. ELETTRONICA Via Tavagnacco 89 Udine 

Veneto 

BOFFELL1 ELETTRONICA SERVIZI S, Lio 5824 Venezia 
ELETTRONICA SERVIZI - C.so Del Popolo 32/E Mestre 
PACINOTTI - Via Torino 82 Mestre 
ELETTRONICA SERVIZI Via Bastia Fuori 2/A - Mirano 
COMPUTER SERVICE - Via Beethoven 3 - Padova 

E. D.P. ■ Via Borromeo 16 ■ Padova 
PACINOTTI • Via Palestra 12 • Padova 
COMPUTER SERVICE ■ Via Cavallotti 12 - Rovigo 
UOMO COMPUTER - C.so Mazzini 53 Montebelluna 
CODEX V.le De Gasperi Treviso 

ABC INFORMATICA Contra'Potta Padova 19 Vicenza 
ABC INFORMATICA - V.le S. Lazzaro 19 Vicenza 


UOMO COMPUTER - Via Olmo 38 Creazzo 
EFFECOMP ■ Via Campestri™ 2/A Montecchio Maggiore 
CHIP COMPUTER • Stradone S.Fermo 8 Verona 
COMPUTER SHOP ■ Via Del Pontiere 2 • Verona 
ESA COMP • Via Roveggia 43 - Verona 
MOS 80 • Via Germania 21 • Verona 
PERSONAL COMPUTERS - Largo Marzabotto 21 • Verona 
Liguria 

COMPUTER CENTER - Via S.Vincenzo 109/R Genova 
COMPUTER CENTER • Via Storace 4/R GE Sampierdarena 
IL COMPUTER - V.le Brig.Partìgìane 132R Genova 
SALS INFORMATICA • Via G. D’Annunzio 2 - Genova 
TP-TECN. INFORM. IMPRESA - Vìa Interìano 1 - Genova 
RAFFO GIOVANNI D.l. • C.so Genova 100 Lavagna 
RAFFO GIOVANNI D.L - Via Della Libertà 130 Rapallo 
BOTTEGA DEL COMPUTER - V.Martiri Libertà 180 - 
Sanremo 

I.L ELETTRONICA • Via Veneto 123 La Spezia 
BRIANO C.so Tardy e Benech 20R Savona 

Emilia Romagna 

COMPUTER SYSTEMS Via Ercolani 10/D Bologna 
EDP SISTEMI • V.le Pietramellara 61/F • Bologna 
LUCKY SYSTEMS Via Farini 33/A - Bologna 
SERCOM • Via Berengario Da Carpi 9/B • Bologna 
COMPUTERS - Via S.Pier Grisologo 38 Imola 
SPAZIO BIT P.zza Codronchi 1/A • Imola 
CANALGRANDE INFORMATICA - C.so Canal Grande 14 - 
Modena 

1NFOMOD • Via Giardini 464/A Modena 
1RET • C.so Canalgrande 29 Modena 
IRET • Via Berengario 58 - Carpi 
1RET • Via Pretorio 65 - Sassuolo 
RCM COMPUTER • C.so Vittorio Emanuele 11, 96 Piacenza 
IRET ■ Via Cavallotti 3 - Parma 
RCM COMPUTER - Via Farini 51/A Parma 
RCM COMPUTER • Via Comini Malpeli 11 Fidenza 
IRET Via Emilia S.Stefano 32 - Reggio Emilia 
POOL INFORMATICA COMPUTER SHOP ■ Via Emilia 
S. Stefano 9/C Reggio Emilia 
Toscana 

ANFREL INFORMATICA Via Masaccio 50 Firenze 
COMPUTER LINE ■ V.le Spartaco Lavagnini 20 - Firenze 
LINE G.Di Vittorio 10 Firenze 
RA COMPUTER TOSCANA V.le Petrarca 122 ■ Firenze 
SOLUZIONI E.D.P. - C.so Tintori 39/R ■ Firenze 
TUTTO COMPUTER ■ Via Panzani 36/38R ■ Firenze 
C.D.S. • Via Mazzini 5 - Arezzo 
SISTED • P.zza Risorgimento 10 Mezzo 
LMNFORM - Via Roma 8 (P.zza Attias) • Livorno 
LIVINFORM DUE - Sali delle Cantine 62 - Livorno 
LOGOS INFORMATICA ■ V.le S, Concordio 537 - Lucca 
EURO COMPUTER P.zza Bertagnini 4 Massa 
DATA PORT DUE Via Sancasciani 35 Pisa 
S.E.T, - Via Fucini 20 - Pisa 
DATA PORT ■ Via Brigate Partigiane 27 • Pontedera 
Marche 

SISTEDA ■ Via Flaminia 286 - Ancona 
MED - P.zza Rosselli 6 Fabriano 
NEW COMPUTER ■ P.zza Pergolesi 2/M Jesi 
RINASCITA INFORMATICA - V.Trento e Trieste 17 - 
Ascoli Piceno 

MICRO SYSTEM Via Cavour 3 - S, Benedetto Del Tronto 
M.E.D, ■ Via Mozzi 72/A Macerata 
M.E.D, ■ Via V.Venanzi 11 ■ Camerino 

Umbria 

L'INFORMATICA - Via S.Elisabetta 26 ■ Perugia 
MICROCOGIT Via Dei Filosofi 24 - Perugia 
READYCOMPUTER ■ Via Adriatica 49 Ponte S.Giovanni 
LINEA INFORMATICA - Via Garibaldi 81 - Foligno 


Lazio 

BIT COMPUTERS • Via Flavio Domiziano 10 - Roma-Eur 

BIT COMPUTERS ■ Via Francesco Satolli 55 - Roma 

BIT COMPUTERS - V.le Ionio 333 - Roma 

BIT COMPUTERS ■ Via Nemorense 14/16 Roma 

BIT COMPUTERS - Via Tuscolana 350 - Roma 

COMPUTIME Via Cola Di Rienzo 28 Roma 

COMPUTIME V.le Paridi 25 - Roma 

EASYBYTE - Via Giovanni Villani 24 • Roma 

F.B.M. - Via Flaminia 395 ■ Roma 

F.B.M. - Via Flaminia 395D • Roma 

BIT COMPUTERS - Via A Diaz 14 ■ Latina 

EASYBYTE Via E.Toti-Gall.Cisa • Latina 

BIT COMPUTERS - P. Belv. Concafung. Caboto 74 • Gaeta 

BIT COMPUTERS • Via Palmanova 12/C - Viterbo 

Abruzzo 

C.P.S. INFORMATICA - Via Sallustio 57/59 - L'Aquila 
CHIP ■ Via Milano 77/6 - Pescara- 
GENERAL COMPUTER - Via N. Adriatica Nord 386 - Pescara 
ORMI COMPUTERS Via C. Goldoni 5 Pescara 
STUDIO PROTEO • Via Nicola Dati ^ - Teramo 
Campania 

COMPUTER SYSTEMS - Via G. Puccini 19 Napoli 
GOLDEN COMPUTERS - Via Michelangelo 7 - Napoli 
LA BARBERA CARLO - Via Toledo 320 - Napoli 
LC.C. ELETTRONICA Via Degli Imbimbo 126 • Avellino 
COMPUTER SYSTEM ■ Vìa Bottiglieri 19 • Salerno 
SEDA • Via Parmenide (avalavia Meratello) - Salerno 
Puglia 

AUDITORIUM 3 • P.zza Massari 15 Bari 
CIESSE - Vìa Re David 176 - Bari 
L&L COMPUTERS ■ Lgo 2 Giugno 4 • Bari 
AUDITORIUM 3 ■ P.zza Garibaldi 12/A - Molfetta 
SIC ■ V.le S. Giovanni Bosco 109 • Brindisi 
I.S.I. INFORMATICA SISTEMI - Via Barletta 6 - Foggia 
QUASAR INFORMATICA ■ Vìa G. Arditi 11 Lecce 
QUASAR INFORMATICA ■ Via Convento - Rade (LE) 
Basilicata 

GENERAL COMPUTER - Discesa S, Gerardo 181 - Potenza 

Calabria 

MICRO SYSTEMS • Via Roma 75/77 • Cosenza 
TECNOCOMP - Vie Affaccio 1 • Vibo Valentia (CZ) 
TECNOCOMP c/ o OFFICE STYLE - 

Cso Vittorio Emanuele 109 - Reggio Calabria 
TECNOCOMP ■ Via Nazionale S.S. 111, 117 • Gioia Tauro 
Sicilia 

SI.EL INFORMATICA P.zza Galatea 2 Catania 
INFORMATICA COMMERCIALE - Via Notarbartolo 23/B/C 
- Palermo 

CENTRO UFFICIO Vìa Menfi 3 - Siracusa 

Sardegna 

SII, ■ Via S. Lucifero 85 - Cagliari 

Rivenditori autorizzati VA.R. 

EMAC - Via L Devoto 25 ■ Genova 
L PAOUNI - Salita inf. della Noce 10/R Genova 
MODULO GENOVA Galleria Mazzini 3/4 ■ Genova 
EGIDA • Via C. Balbo 6 - Milano 
NEW LINE ■ Via Frua 12 Milano 
CESAC - Via Ceresio 42 - Lomazzo (CO) 

BIOTECH - Via S. Valentino 18 • Roma 
ELDA - Lungotevere Marzio 12 • Roma 
L PAOUNI • Via Ostiense 48 Roma 
L PAOUNI - Lgo Marchiafava 4 • Roma 
L PAOUNI Via IV Novembre 157 Roma 

A Apple Computer 


Trovi l’elenco completo dei rivenditori della tua zona nelle Pagine Gialle, alla voce “Personal computer” o “Elaboratori”. 
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Un incendio è scoppiato 
all’orfanotrofio, e voi siete un pompiere 
che deve salvare il maggior numero di 
bambini ospiti dell’istituto prima che le 
fiamme li aggrediscano. Se sbagliate 
tre volte sarete nei guai: il severo 
comandante vi toglierà la licenza di 
pompiere e sarete costretti a tornare al 
vostro solito lavoro. 


DOS 3.3 
ProDOS 

APPLE //» •#! 
APPLE Ut ■ 


R icordate quando eravate bambini 
e vi chiedevano cosa avreste fatto 
da grandi? Siamo certi che risponde¬ 
vate sempre il medico, l’aviatore, il 
pompiere o l’esploratore. Invece poi 
avete finito col fare il noiosissimo la¬ 
voro di stare alla scrivania. 

Adesso vi si presenta l’occasione di 
tornare a quei tempi felici e fare, sul 
vostro Apple, una delle professioni 
immaginarie e dimenticate della vo¬ 
stra infanzia. Con POMPIERI sarete 
infatti nei panni di un pompiere nel 
corso di un violento incendio di un 
orfanotrofio con il compito di salvare 
gli innocenti bambini che, disperati, si 
lanciano dalla finestra sul celebre telo¬ 
ne di salvataggio che reggete insieme a 
un vostro collega. 

POMPIERI è un programma in lin¬ 
guaggio macchina e BASIC per l’Ap¬ 
ple. Per digitarlo bastano cinque o sei 
giorni nei momenti liberi, ma se si la¬ 
vora a tempo pieno in un week end è 
possibile trasferire il tutto sull’Apple e 
ritrovarsi sotto le finestre dell’orfano¬ 
trofio di Lincoln, Massachusetts, con 
il telo in mano per cercare di salvare i 
bambini che si lanciano nel vuoto per 
sfuggire alle fiamme. 

Questo programma poteva essere 
scritto tutto in BASIC ma sarebbe sta¬ 
to troppo lento per mostrare la vostra 
abilità di pompieri. Il linguaggio mac¬ 
china è più difficile da digitare ma ha il 
pregio di essere ben più veloce del 
BASIC, assicurando il divertimento 
anche a coloro che sono dotati di ri¬ 
flessi fulminei. 


Pompieri 



gioco 


POMPIERI vi trasforma in pompie¬ 
re che deve salvare tutti i bambini che 
si lanciano dalla finestra del palazzo in 
fiamme. I bambini da portare in salvo 
debbono essere consegnati agli addetti 
dell’ambulanza che è accorsa sul po¬ 
sto, ma poiché, a causa delle fiamme, 
questa non si può avvicinare troppo 
all’orfanotrofio, è anche necessario 
che ogni bambino sia fatto rimbalzare 
sul telo più volte. 


Le cose si complicano quando avre¬ 
te salvato un certo numero di bambini: 
quelli che rimangono sul davanzale 
della finestra si sentiranno più sicuri 
della vostra abilità con il telo e comin- 
ceranno a lanciarsi a due o tre per 
volta fino a un massimo di sette bambi¬ 
ni contemporaneamente. 

Se si lascia che un bambino cada sul 
selciato la sua anima innocente viene 
trasportata nel Paradiso dei Bimbi che 
si trova in cielo, proprio sotto la parte 
superiore dello schermo. Naturalmen¬ 
te questo è un fatto abbastanza grave 
per un pompiere e quando i bambini 
ascesi in Paradiso sono in tre, il Corpo 
dei Vigili del Fuoco non può fare a 
meno di ritirarvi la licenza di pompiere 
e il gioco finisce. 

Per controllare la posizione del telo 



















































































1 - LISTATO: POMPIERI 


10 REM ********************* 

11 REM * POMPIERI * 

12 REM * DI BILL FONTERBERRY * 

13 REM * COPYRIGHT <C) 1985 * 

14 REM * 8Y APPLICANDO 4 * 

15 REM * MICROSPARC, INC. * 

l4 REM ****#**»***»»«»***»*»»* 

100 TEXT : HOME ; VTAB 12: PRINT *(C) 1985 BY APPLICANDO 4 
MICROSPARC. INC 1 
110 H1MEM: 8191 

120 PRINT : PRINT CHRi (4):’BLOAD INFERNO SHAPES* 

125 PRINT CHRi (4);"BLOAD INFERNO OBJ 1 
130 HGR : GR : HGR2 

140 SPEED= 255: TEXT : HOME : INVERSE : FOR I = 23 TO 1 STE 
P - 1: VTAB I: PRINT 1 

': NEXT : REM 40 SPAZI 

150 VTAB 2: PRINT 1 FLASH : PRINT ’POMPIE 

RI 1 : INVERSE : REM 14 SPA2I FRA VIRGOLETTE 
140 PRINT : PRINT : PRINT ’ FAI PARTE DI UNA SQUADRA DI POM 
PIERI ': PRINT 'AI PIEDI DELL'EDIFICIO PER SALVARE Pi 
PRINT ‘BAMBINI CHE SALTALO DALL'ORFANOTROFIO 1 : PRINT "1 
N FIAMME." 

170 PRINT : PRINT * LA TUA POSIZIONE E' COMANDATA DAP: PRI 
NT ‘3 TASTI INDICATI SOTTO.’ 

180 PRINT : PRINT • IL GIOCO TERMINA QUANDO HAI FATTO’: PRI 

NT 'CADERE TRE BAMBINI SUL TERRENO.’i PRINT 1 MANDAN 

DOLI NEL PARADISO DEI BAMBINI." 

190 PRINT : PRINT ’ ECCO ! COMANDI": PRINT * 

SINISTRA CENTRO DESTRA , 

. /’ 

200 POKE 232.00: POKE 233,94 
210 ROT= 0: SCALE= 1 

220 REM IMPOSTA PUNTATORE PAGINA E DISEGttt 
230 POKE 230,44: GOSUB 410 

240 POKE 230.32: GOSUB 900 

250 PRINT : PRINT * NORMAL : PRINT "PREMI UN TASTO 

PER GIOCARE 1 : POKE - 14348,0: REM 7 SPAZI FRA VIRGO 
LETTE 

240 1F PEEK < - 14384) < 128 THEN 240 
270 POKE 784, INT < RND (0) * 40) + 140: REM PASSA NUMERO 
CASUALE AL GIOCO PER EVITARE SCHEMI FISSI 
280 CALL 25232: REM IL GIOCO!!! 

290 FOR I = I TO 50:S = < PEEK ( - 14334) - PEEK < - 14334 

)) * PEEK ( - 14334) 4 ( PEEK < - 14334) - PEEK ( - 1 

4334)): NEXT 
300 GOSUB 970 

310 S = PEEK (771) 4 PEEK (772) » 254: TEXT : HOME : NORM 
AL : PRINT "HAI SALVATO ";S;' BAMBINI.’ 

320 POKE - 14348 0 

330 PRINT : PRINT’: PRINT ‘VUOI GIOCARE ANCORA? (S/N)’;: GE 
T Ai: PRINT Ai 
340 1F Ai = ’S’ THEN 250 
350 1F Ai < > ’N’ THEN 310 
340 REM FINE DEL GIOCO 

370 HOME : POKE - 14304,0: POKE - 14301,0: VTAB 22: HTAB 

17: PRINT "CIAO!! !’ 

380 PRINT GET Ai: TEXT : HOME 
390 END 

400 REM DISEGNA LA TAVOLA DI GIOCO 

410 HCOLQR= 3 

420 REM DISE01A L'EDIFICIO 

430 FOR I = 0 TO 24: HPLOT 1,14 TO 1.20: NEXT 

440 FOR ! = 0 TO 24: HPLOT 1,180 TO 1,190: NEXT 

450 HCOLOR= 5 

440 FOR I = 0 TO 20: HPLOT 1,21 TO 1,179: NEXT 
470 HCOLOR= 4 

480 FOR I = 24 TO 179 STEP 4: HPLOT 0,1 TO 20,1: NEXT 

490 FOR I = 21 TO 174 STEP 8: HPLOT 8,1 TO 8,1 ♦ 3: HPLOT 7 

,1 TO 7,1 4 3: NEXT 

500 POR 1 = 24 TO 183 STEP 8: HPLOT 13,1 TO 13,1 ♦ 3: HPLOT 
14,1 TO 14,1 ♦ 3: NEXT 

510 FOR 1 = 28 TO 50: HPLOT 14.1 TO 22,1: NEXT 
520 HCOLQR= 3: HPLOT 14,51 TO 22,51 TO 22,52 TO 15,52 
530 HCOLOR= 5: DRAU 5 AT 29,14 
540 REM DlSEGftó L'AMBULANZA 

550 HCOLOR= 4: FOR I = 150 TO 180: HPLOT 224,1 TO 270,1: NE 
XT 

540 FOR I = 245 TO 277: HPLOT 1.170 TO 1,180: NEXT 
570 HCOLOR= 5: FOR I = 234 TO 254: HPLOT 1,142 TO 1,148: NE 
XT 




h A KÌ 


L’alta risoluzione grafica del programma è evidente da 
queste immagini riprese col Palette della Polaroid. 


580 FOR ! = 154 TO 174: HPLOT 242,1 TO 248,1: NEXT 

590 HCOLOR= 7: HPLOT 278,148 TO 278,180 TO 279,180 TO 279,1 
48: HPLOT 244,149 TO 244,144 TO 248,144 TO 248,149 
400 HPLOT 242,148 TO 270.148 TO 270,149 TO 242,149 

410 HCOLOR= Di FOR I = 155 TO 148: HPLOT 248,1 TO 248,1: NE 
XT 

420 HCOLOR= 5: FOR 1 = 144 TO 147: HPLOT 242,1 TO 248,1: NE 
XT 

430 HCOLOR= 3 

440 RESTORE 

450 FOR Y = 181 TO 183: 

440 READ X1,X2,X3.X4 

470 HPLOT XI,Y: HPLOT X2,Y: HPLOT X3,Y: HPLOT X4,Y 

480 NEXT 

490 HPLOT 228,184 TO 234,184 

700 HPLOT 244,184 TO 272,184 

710 DATA 224,234,244,274,224,234,244,274,227,235,245,273 

720 HCOLOR= 3 

730 : 

880 RETURN 

890 REM LO SPRUZZO 

900 HCOLOR= 3 

910 FOR I = ! TO 279 STEP 9 

920 HPLOT 1,0 TO 279 - 1,191: NEXT 

930 FOR I = 1 TO 191 STEP 9 

940 HPLOT 0,1 TO 279,191 - I: NEXT 

950 RETURN 

940 REM CANCELLA LE FIGURE CHE LASCIANO LA TAVOLA 

970 RESTORE : FOR I = 1 TO 12: READ X: NEXT 

980 POKE 230.44 

990 HCOLOR= 4 

1000 DRAU 4 AT 28.20: DRAU 5 AT 29,14 
1010 HCOLOR= 5: DfiAU 5 AT 29,14: HCOLOR= 0 
1020 FOR I = 1 TO 3: READ X: DRAU 2 AT X,70: NEXT 
1030 DATA 120,140,200 
1040 HCOLOR= 3 

1050 FOR I = 1 TO 3: READ X: DRAW 4 AT X,!48: NEXT 
1040 DATA 157,92,27 

1070 FOR ! = 1 TO 24: READ X,Y: HCOLOR= 3: DRAW 1 AT X,Y: H 
COLOR= 0: DRAU 1 AT X,Y: NEXT 
1080 DATA 32,38,34,40,34,80.38,100 
1090 DATA 42,120,44,140,54,154,44,134,74,118 
1100 DATA 78,104,88,90,104,104,108,124,112,140 
1110 DATA 122,154,135,138,140,118,155,104,170,120 
1120 DATA 177,140,188,154,200,138,214,124,239,134 
1130 HCOLOR= 0 

1140 FOR I = 1 TO 3: READ X: DRAU 4 AT X,148: NEXT 
1150 DATA 157,92,27 
1140 RETURN' 
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Il meccanismo del gioco è semplice: bisogna salvare II 
bambino che si lancia dalla finestra per poi caricarlo sul¬ 
l’ambulanza... 



...ma dopo un po’ il gioco si complica e mette a dura prova I 
riflessi anche del più abili, perché i bambini che si lanciano 
dalla finestra diventano sempre più numerosi. 
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ci sono solo tre posizioni sul selciato 
della strada e naturalmente, per co¬ 
mandare lo spostamento da una all’al¬ 
tra, si devono utilizzare tre tasti. 

Con il tasto , (virgola) ci si sposta 
alla posizione di sinistra, il tasto / ci si 
sposta invece alla posizione di destra, 
mentre il tasto . (punto) ci riporta al 
centro. 

Alla fine del gioco si avrà la possibi¬ 
lità di rinnovare la propria licenza per 
un altro tentativo, altrimenti si può 
ammettere la propria sconfitta e ab¬ 
bandonare la nobile impresa. 

Caricamento 

Il programma ha tre parti principali: 
una in BASIC, una in linguaggio mac¬ 
china e una tavola delle figure. Prima 
di cominciare a giocare bisogna inseri¬ 
re tutte e tre le parti del programma 
nell’Apple. 

Per prima cosa è necessario digitare 
il programma in BASIC e salvarlo co¬ 
me POMPIERI. 

Dopo digitate la tavola delle figure 
battendo CALL—151 per andare in 
monitor e successivamente l’indirizzo 
(il numero più a sinistra), un segno di 
due punti (:) e di seguito i dati (le 
coppie di numeri esadecimali alla de¬ 
stra della lineetta). Per maggiori infor¬ 
mazioni consultate l’articolo "Per chi 
comincia" {pag. 117). 

Quando si è finito di introdurre la 
tavola delle figure bisogna salvarla con 
BSAVE INFERNO SHAPES, 
A$6000,L$288. 
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all'altezza 
dei tuoi problemi 




Acquistare un computer non è 
sufficiente a risolvere i tuoi pro¬ 
blemi. Devi acquistare quello più 
idoneo all'uso che devi farne. 
Computer Center: la più vasta 
gamma di computer per una 
scelta migliore • validissimo 
team di analisti programmatori a 
tua completa disposizione • tutte 
le periferiche e accessori • corsi 
di formazione professionale • 
Software House. 



Computer 

Center 


VENDITA - ROMA 
Via Nizza, 48/50/52 
Tel. 844.84.18-86.38.39 


Via Nizza, 26/28/30/32 

Tel. 844.80.22-85.79.57 
ViaSoana(P.za Tuscolo), 24/26/28 

Tel. 759.15.44-759.27.90 

Via Prati Fiscali, 257/257a/257b 

Tel. 810.17.60 


ASSISTENZA TECNICA -ROMA 
Via Terni, 86/86a/86b 
■IBI 
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Fate la stessa cosa con il terzo listato 
salvandolo con BSAVE INFERNO 
OBJ, A$6290,L$457. Solo a questo 
punto è possibile iniziare a giocare: 
basta battere RUN POMPIERI. 

Non dimenticate che un grave in¬ 
cendio è in corso e che voi, pompieri 
fin dall’infanzia , avete la possibilità di 
salvare molti piccoli ospiti dell’orfana- 
trofio. Ma attenzione: il Corpo dei Vi¬ 


gili del Fuoco è inflessibile e al terzo 
sbaglio vi ritirerà la licenza di pompie¬ 
re e tornerete stare sulla vostra noiosa 
scrivania. Forza con il telo allora. 


Questo programma è disponibile su 
dischetto. L'elenco, i prezzi e le 
modalità d 'ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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Si potrebbe davvero definire una banda 
musicale, perché il nuovo pacchetto applicativo 
di software integrato della Lotus per Macintosh 
racchiude in sé ben sei programmi interattivi. Per 
dirigere l’orchestra, però, non occorre la 
bacchetta di Claudio Abbado, bensì il mouse... 



Apple Jazz Band 


ff e la Apple è riuscita a creare 
una macchina il cui utilizzo può 
essere appreso da chiunque in poco 
più di mezz’ora, noi siamo riusciti a 
estendere lo stesso concetto in questo 
software applicativo." Così Eric Be- 
dell, direttore marketing della Lotus 
Developement System, definisce Jazz, 
il nuovo programma per Macintosh 
della software house americana che, 
dopo aver conquistato i primi posti 
delle hit-parade del software più ven¬ 
duto per IBM e compatibili, (prima 
col Lotus 1—2—3epoi con il più recen¬ 
te Symphony), ha portato il concetto 
di pacchetto integrato anche sull’ulti¬ 
mo computer di Steve Jobs. 

Jazz, che negli USA è già in vendita 


e in Italia sta per arrivare, distribuito 
da J. Soft e dalla Southern European 
Computer, unisce, come dice lo stesso 
Bedell, "in un unico programma una 
completezzza di funzioni e una veloci¬ 
tà d’apprendimento legate alla sempli¬ 
cità d’utilizzo propria del Macintosh". 
Comprende sei applicativi: spread¬ 
sheet, grafica, word processor, comu¬ 
nicazioni, data base, mailing e formati 
per il data base. 

Spreadsheet 

256 colonne per 8192 righe. Se non 
fosse per le altre particolarità del pro¬ 
gramma, basterebbe questo incredibi¬ 


le numero di righe per presentare il 
foglio di calcolo elettronico di Jazz. Il 
menù dell’applicazione, visibile nella 
figura 1 , comprende otto funzioni. 

La melina, il file e l’edit raccolgono 
le funzioni tipiche del Macintosh, da¬ 
gli accessori alle possibilità di editing e 
di gestione delle icone. La funzione 
Window permette di vedere quali altre 
finestre sono aperte contemporanea¬ 
mente a quella che si sta usando. Que¬ 
ste prime quattro funzioni sono comu¬ 
ni a tutte le sei applicazioni di Jazz. In 
ordine da destra a sinistra troviamo 
poi i menù di Range, Tools, Font e 
Style, più tipicamente definibili come 
funzioni di spreadsheet. 

Per esempio un click su Show attri- 
butes nel menù Style dirà le particola¬ 
rità di una cella, la funzione che con¬ 
tiene, se è protetta o meno o se il con¬ 
tenuto è giustifcato a sinistra o a de¬ 
stra. Esaminando i menù Range e 
Tools si potranno invece esaminare le 
opzioni che fanno di Jazz uno degli 
spreadsheet più potenti. Opzioni che 
portano a un box di dialogo con l’uten¬ 
te per le decisioni da prendere. 

Tutte le formule e le operazioni pos¬ 
sibili vengono scelte attraverso i diver¬ 
si menù. 

Per fare, ad esempio, una media dei 
valori di una colonna, basterà selezio¬ 
nare Average nel menù Tools e poi 
puntare la cella che rappresenterà 
quella operazione, indicando le celle 
estreme di calcolo. 

Grafica 

Sono possibili sei diversi formati per 
analizzare dati presi direttamente da 



Figura 1. Lo speadsheet. 
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ricavati dallo spreadsheet, oppure per 
delle mailing list con il data base, o 
ancora per preparare testi da trasmet¬ 
tere via modem con il programma di 
comunicazioni. 

Da notare la possibilità di un cam¬ 
bio automatico dei dati nel documento 
ogniqualvolta viene cambiato qualco¬ 
sa nell’applicazione legata al testo. 


Comunicazioni 

Particolarità di questa applicazione 
(figura 4), come è del resto il concetto 
di base di Jazz, è la possibilità di inter¬ 
scambio con gli altri programmi. Una 
volta preparato un file di testo, con 
magari i dati di altre applicazioni, co¬ 
me abbiamo visto precedentemente, è 
possibile aprire un box di dialogo con 
il Macintosh per stabilire tutte le pre¬ 
messe necessarie per la trasmissione 
dati (velocità in baud, numero di bits, 
tipo di emulazione, ecc.). 

Come nella trasmissione, anche nel¬ 
la ricezione di informazioni è possibi¬ 
le, nello stesso identico modo, mani¬ 
polare i dati ricevuti e portarli nello 
spreadsheet, piuttosto che nel data ba¬ 
se, oppure rappresentarli grafica- 
mente. 


Data Base 

Preso da solo è un normalissimo da¬ 
ta base, con tutte le funzioni comuni 
agli analoghi programmi di gestione 
dati, con la possibilità di creare dei 
campi a discrezione dell’utente. Pre¬ 


uno o più spreadsheet di Jazz. L’appli¬ 
cazione permette di studiare gli anda¬ 
menti di una qualsiasi gestione con 
grafici (figura 2) a linee, barre, colon¬ 
ne, aree, oppure analizzando percen¬ 
tuali e crescite di un determinato cam¬ 
po. Riducendoli opportunamente sarà 
poi possibile visualizzare contempora- 
nemante sullo schermo tutti i diversi 
formati. Per particolari annotazioni è 
anche possibile aprire un piccolo box, 
per avere, per esempio, un colonnino 
di testo a fianco di un formato. 

Word processor 

E basato sui concetti di MacWrite 
raccogliendone tutte le opzioni. Non è 
un metodo di scrittura molto più sofi¬ 
sticato, ma funge da collegamento tra 
le altre applicazioni del programma 
(figura 3). Ad esempio, per unire testi 
e tabelle, magari con i relativi grafici 



Figura 4. Comunicazioni. 
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v.Togliatti 4 56030 Perignano Pi 

DISTRIBUISCE ALL INGROSSO 
IN TUTTA ITALIA 


materiali pronti a magazzino 


Macintosh ...e 

tonto software in italiano a prezzi 
unici e irripetibili. 

Apple // 

Periferiche .. 

Schede aggiuntive ... 
Compat i b i I i cmade in italy > 
alcuni esempi : 

compatibile Ile 635.000 

disk-drive slim sokata 325.000 
doppio drive "duodisk" 865.000 
mouse completo 199.000 

stampante 80 col. I.V. 830.000 
super serial card e cavo 135.000 
doppio controller cord 66.000 
porollel card standard 66.00*3 
scheda 80 col.+ 64 k 166.000 
scheda Z-80 x CP/M 79 .000 
languoge cord 16 k 76.000 

Hord-disk 5 rnb. 1.990.000 
Tutto con garanzia un anno 


Consegno immediato ovunq ue 

SQFTV ARE x fipple 
A prezzi estremamente bassi sono 
disponibili oltre 150 pakage di alto 
affidabilità, tutti in sorgente, con 
allegoto il rnanuole completo d’uso. 


FLOPPY—PISK 


Tutta la gamma Uerbatim 
Cverex e datalife) offerti 
a prezzi imba 11ibiIi anche 
per piccoli quantitativi. 


listino completo e dettagliato può' 
essere richiesto inviando 3.000 
lire in francobolli oppure ordinando 
almeno un articolo in contrassegno 

Per dettagli tecnici urgenti : 
TELEFONARE aHo 0587 - 616084 


MATERIALI FORNITI CON 
GARANZIA 

SODDISFATTI 0 RIMBORSATI 

con noi i tuoi investimenti 
saranno sempre più protetti. 

I prezzi non comprendono l'i.v.o. 
Apple. Duodisk. Macintosh. sono 
morchi di opple computer ine. 




Figura 5. Il Data Base con il Forms aperto. 



Figura 6. Jazz in azione con alcuni strumenti aperti contemporaneamente. 


senta diverse possibilità di sort e di 
inserimento (figura 5). 

Forms 

Il programma Forms di Jazz (figura 
5) dà potenza e flessibilità al data base, 
consentendo di impostare una volta 
per tutte i formati di stampa desiderati 
per i propri dati. 

Permette di modificare il posiziona¬ 
mento dei campi, allineandoli in ma¬ 
niera differente o dando uno stile e un 
carattere diverso o, ancora, aggiun¬ 
gendo particolari annotazioni. Il tutto 
potrà poi essere stampato in tutte le 
maniere possibili oppure essere legato 
a un documento word processor. 


Osservazioni 

Per far "suonare" Jazz è necessario 
un Macintosh 512K con uno o, meglio, 
due drive. Di questi 512K, i sei stru¬ 
menti ne occupano circa la metà la¬ 
sciandone 256 liberi per i documenti. 
Il programma è stato impostato su una 
particolare lettura da disco delle varie 
applicazioni per aumentare la velocità 
di utilizzo. 

Ogni volta che viene detto a Jazz di 
fare qualcosa, il programma caricherà 
quella funzione e la metterà in memo¬ 
ria, così la volta successiva che si ri¬ 
chiederà la stessa opzione non sarà più 
necessario caricarla da disco. 

Mario Magnani 
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Computer Center guida Genova neU'informatica 


con i suoi ComputerShops 


Apple a Genova é 


(Écippkz computer 


computer contar 

vendita-assistenza -software -corsi 


ViaS.Vincenzol07-l09r. tei.010/581474 Genova 
ViaStorace4r. tei.010/454107 Ge.$ampierdarena 
Via S.Vincenzo I29r. tei. 010/ 581815 Genova 
Corso Gastaldi 77r. tel.010/300797 Genova 
C.soB.Aires 125 tel.0185/314142 l avagna 










CCP MILANO 



O SUPER VISION III. Monitor colori 12", scher¬ 
mo antiriflesso. Possibilità di funzionamento 
in text mode su fosfori verde, ambra, bianco rever¬ 
se, selezionabili dall’utente. Risoluzione640x262. 

O VISION PAL. Monitor colori 12", schermo an¬ 
tiriflesso. Possibilità di funzionamento in text 
mode su fosfori verde, ambra, selezionabili dal¬ 
l’utente. Ingresso videocomposito. Low cost. 

O VISION PC. Monitor colori 12", schermo anti¬ 
riflesso. Appositamente progettato per IBM 
PC. Risoluzione 640x262. 

O RGB VISION II. Monitor colori 12". Risolu¬ 
zione 510x262. Ingresso RGB. Filtro smoked 
in dotazione. 

O KX1201 - E. Monitor fosfori verdi 12", scher¬ 
mo antiriflesso. Ingresso videocomposito. 
Opzionale piedestallo di basculaggio KTS-1 con 


orologio LCD incorporato (rif. 16). 

O KX1212 - E. Monitor fosfori verdi 12, schermo 
antiriflesso, compatibile con IBM PC. Opzio¬ 
nale piedestallo di basculaggio KTS-2 con orolo¬ 
gio LCD incorporato (rif. 17). 

O KP910. Stampante a matrice 9x9,156 colon¬ 
ne a 140 cps bidirezionali ottimizzati, trasci¬ 
namento trattori e frizione, grafica. Elevata silen¬ 
zio sità. Near letterquality. Interfaccia Centronics. 
Disponibilefirmwarepercompatibilitàcon IBM PC. 
Capacità stampa su originale + 3 copie. 

Opzioni: (rif. 9) e (rif. 12). 

O KP- 810. Come KP910. Stampa su 80 colon¬ 
ne. Capacità stampa: originale + 2 copie. 

O KIF4308. Buffer di memoria esterno da 64K 
bytes espandibili fino a 256K bytes. 

Può pilotare due stampanti. 


e 


KFD 510. Minifloppy 5" 1/4 da 140K byt 


' slim line. Per Apple computers e compatibi 
Apple. 

© KIF 3600. Interfaccia colore grafica per IBI* 
PC. Da utilizzare con Vision PC (rif. 3) e supe 
V|sion III (rif. 1). 

k KIF 3502. Interfaccia seriale RS 232 C. 


© 


© KIF 3210 S/64. Espansione di memoria d 
64K a 256K bytes per IBM PC completa < 
interfaccia seriale RS 232 C. 

© RGB II B. Interfaccia RGB per comput€ 
Applell plus e Applell e, per i monitor (rif. 1) 
(rif. 4). 


© KIF3700. Interfaccia monocromatica e Starr 
panteper IBM PC. Da utilizzare con KX1212- 
(rif. 6) e KP 910 o 810 (rif. 7) e (rif. 8). 
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Gigante nella qualità. Le periferiche TAXAN si 
sono imposte sul mercato USA per l'eccezionale 
affidabilità che nasce da una progettazione"senza 
economia" ed un'accurata scelta dei componenti 
impiegati. 


Gigante nella gamma. TAXAN offre una gamma 
completa di periferiche"made in Japan”, ideale per 
ogni tipodi personal computer(IBM. APPLE, COM¬ 
MODORE. SINCLAIR, BBC. ecc.). 


Gigante nella convenienza. Decisamente com¬ 
petitivo, il prezzo è infine un’altra piacevole qualità 
delle periferiche TAXAN. 


Eledra - Sede 

Milano - Viale Elvezia, 18 

Tel. (02) 34.97.51 (24 linee) - Telex 332.332 ELEDRA I 


Eledra - Filiali 
Torino 

Tel. (011 ) 30.99.111 - Telex 210.632 ELEDAT I 

Padova 

Tel. (049) 65.54.88 - Telex 430.444 ELEDAP I 

Bologna 

Tel. (051) 30.77.81 - Telex 213.406 ELEDAB I 

Roma 

Tel. (06) 81.10.151 - Telex 612.051 ELEDAR I 

Bari 

Tel. (080) 81.43.95 


Partner distributivi 
Genova - Informatica Service 
Tel. (010) 56.43.35 

Udine - Asem s.p.a. 

Tel. (0432) 96.10.14 - Telex 450.608 ASEM I 
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TUTTI 
I MESI 
IN 

EDICOLJ 


Per imparare e divertirsi! 



Hai un Commodore 64 o un VIC 20? 

RadioELETTRONICA&COMPUTER 
propone tutti i mesi i migliori 
programmi che una rivista 
possa pubblicare. Per esempio: 
Budgetfamiliare, Gestione 
del magazzino, Slot Machine, 
Generatore di suoni musicali, 
Labirinto, Generatore di onde quadre, 
Data Base, Gestione Cocktails... 


elettronica 

^Computer 

■■™^*****ì™« «■••aio i«u . i. i.ux 




Hai unoSpectrum? RadioELETTRONICA 
&COMPUTER propone tutti i mesi 
fantastici programmi. Ecco qualche 
esempio: Calcolo combinatorio, Cianago 
(corsa di cavalli in alta risoluzione 
grafica), Data Base, Superquaterna, 
Disegnaschemi, I quiz per la patente, 
Insiemistica e disequazioni... 

Giochi, programmi 
gestionali, utility per 
programmare, novità, 
articoli d'interesse 
generale per l'utilizzo in 
famiglia, in ufficio, a 
scuoia, nel tempo libero, 
degli home computer più 
diffusi in Italia. E tanti 
regali allegati a ogni 
copia in vendita nelle 
edicole: cassette con 
programmi, 
portacassette, etichette 
autoadesive per 
cassette... E fantastici 
concorsi con migliaia di 
premi in palio. 


13 AL TOTOCALCIO 

COL CALCOLO COMBINATORIO 


INTERFACCE 

TUTTO AUTOMATICO 
CON VIC I COMMODORI 




St II PROGRAMMA NON SI CARICA 


irtùBirmn 


WKgiwfln?i 


APRILI IDRA 


l 3 lOO 


SCUOIA/VK 70 SPfCTRUM 

INSIEMISTICA E DISEQUAZIONI 

UfllOO/COMMOIH 1*1 M 

GESTIRE IL MAGAZZINO 

GRAFICA 

tutti le curve CON Vie 20 

OAMfS/VIC 30 UA ■,«< IXIJM 

VINCI ALLA SLOT MACHINE 
SEI UN BOMBARDIERE ATOMICO? 


E' una rivista 

pubblicata da 

Editronica, 

leader 

nell'editoria 

elettronica. 





























Ecco un breve ma efficace programma per trasformare 
l’Apple in un fedele e preciso timer che avverte del 
passare del tempo, e al momento giusto... 


DOS 3.3 '♦•IH 
ProDOS +IW 
APPLE //e+IIII 
APPLE //c +1111 


Quando l’ora scocca 


U sare l’Apple anche nella vita do¬ 
mestica e nella gestione degli 
hobbies più tradizionali è certamente 
una delle cose che vi eravate prefissi 
prima di acquistare il computer. Que¬ 
sto tipo di progetti, nati nella vostra 
"era pre-computer", sono poi rimasti 
solo delle buone intenzioni perché con 
Tarrivo dell’Apple avete poi scoperto 
l’affascinate mondo del computer e vi 
siete semplicemente dimenticati di 
tutti i buoni propositi che ne giustifica¬ 
vano l’acquisto. 

Per fare un esempio: siete tra quegli 
appassionati di fotografia che hanno 
speso dei veri capitali in attrezzature 
per lo sviluppo delle pellicole e che, 
con l’arrivo dell’Apple, hanno quasi 
dimenticato il loro vecchio hobby limi¬ 
tandosi a portare in un buon laborato¬ 
rio le istantanee scattate durante l’ulti¬ 
ma vacanza o nel corso dell’ultimo fine 
settimana? 

In questo caso, vi farà piacere saper¬ 
lo, appartenete a pieno diritto alla 
schiera dei più convinti computeristi 
che, tra il lavoro sulla tastiera e la let¬ 
tura di Applicando non trovano più il 
tempo per vecchi amori ormai esplora¬ 
ti a fondo. 

Per far tacere il vostro piccolo senso 
di colpa vi proponiamo allora un pro¬ 
gramma che potrebbe rivelarsi vera¬ 
mente utile sia per il vostro hobby del¬ 
la fotografia che per un mucchio di 
altri piccoli problemi quotidiani e do¬ 
mestici: si tratta di un contasecondi 
programmabile che, nemmeno a dirlo, 
abbiamo chiamato con il fantasioso 
nome di TIMER. 

Per evitare equivoci chiariamo subi¬ 
to che TIMER non è in grado di accen¬ 
dere e spegnere un apparecchio dopo 
un tempo prefissato ma è semplice- 
mente un programma che vi permette¬ 
rà di ricordare dopo un tempo stabilito 
da voi stessi di compiere una data ope¬ 
razione, anche di spegnere il fuoco 


sotto le uova messe a bollire e poi di¬ 
menticate ascoltando della buona mu¬ 
sica. 

Il funzionamento 

Il programma è stato studiato, come 
sempre, per essere il più versatile pos¬ 
sibile. Nel caso particolare è stato pre¬ 
so in considerazione un appassionato 
di fotografia che avesse la necessità di 
effettuare una serie di operazioni se- 


quanziali con tempi ben precisi da ri¬ 
spettare per ogni operazione. TIMER 
vi consente di tasformare il vostro Ap¬ 
ple in un fedele e preciso contasecondi 
programmabile che vi avverte del tra¬ 
scorrere del tempo con un segnale acu¬ 
stico. 

Potete programmare con TIMER 
fino a 25 intervalli di tempo sequenzia¬ 
li di durata diversa tra loro e sfruttare 
quindi il vostro Apple come contase¬ 
condi anche per una complessa serie di 





operazioni consecutive (come è ap¬ 
punto il caso del lavoro in camera 
oscura per lo sviluppo e la stampa del¬ 
le foto). 

Dovrete introdurre la durata di cia¬ 
scun periodo sotto forma di minuti pri¬ 
mi e frazioni decimali. Ai fini della 
temporizzazione effettiva TIMER ar¬ 
rotonda al secondo pari più vicino ed è 
quindi inutile che introduciate tempi 
con più di due cifre decimali. 

Ogni intervallo di tempo program¬ 


mato viene contato alla rovescia con 
un segnale acustico che scandisce i se¬ 
condi e un cicalino finale che avverte 
della sua fine. Sullo schermo invece il 
passare del tempo viene evidenziato 
con un orologio analogico in alta riso¬ 
luzione e un orologio digitale in modo 
testo che segnano il conto alla rovescia 
indicando quanto manca alla fine del¬ 
l’attuale intervallo di tempo imposta¬ 
to. 

Alla fine di ogni intervallo, dopo il 


suono del cicalino che vi avverte della 
sua fine, dovete premere RETURN 
per passare al conto alla rovescia del 
successivo periodo che avete program¬ 
mato. Completata la sequenza di in¬ 
tervalli di tempo impostati da voi po¬ 
trete poi ricominciare daccapo o ride¬ 
finire uno dei periodi o ancora modifi¬ 
care l’intera sequenza dei 25 intervalli 
di tempo sequanziali che avete a di¬ 
sposizione. 

TIMER si rivela quindi veramente 


Listato 


50 REM ************************ 

52 REM * TIMER * 

54 REM * DI C.J.THOMPSON * 

56 REM * COPYRIGHT (C) 1985 * 

58 REM * BY APPLICANDO 4 * 

60 REM * MICROSPARC, INC. * 

62 REM ************************ 

64 REM RICHIEDE 16K D! MEMORIA 

87 PRINT Dt'CLOSE TIMER TXT* 

100 REM TIMER 

110 REM (Ci 1985 BY APPLICANDO 

120 REM 4 CJ THOMPSON 

140 REM QUESTO PROGRAMMA PROVVEDE AL 

160 REM CONTEGGIO ALLA ROVESCIA ANALOGICO E 

180 REM DIGITALE DI UNA SERIE ARBITRARIA 

200 REM DI PERIODI DI 

220 REM TEMPO. E' UTILE PER IL 

240 REM TRATTAMENTO DI NEGATIVI 

260 REM E STAMPE FOTOGRAFICHE E 

280 REM PER FARE LE UOVA SODE ! ! ! 

300 REM INI2IAL122A LE 'VARIABILI 
320 A = 3: REM LA LANCETTA DEI MINUTI E' VERDE 

340 B = 5: REM LA LANCETTA DEI SECONDI E' ROSSA 

360 TC = 200; REM C0RRE21ONE TEMPGRI2ZA2I0NE (MaGGIORE=PIU 
' LENTO) 

380 DIM TK25),TS(25): REM IL NUMERO MASSIMO DEI PERIODI 
E' 25 

400 K = 3; REM NUMERO DEI SE SIALI Di CICALINO 
420 TA = 25: REM LUNGHEZZA DI OGNI SEGNALE 
480 GOTO 1000; REM SALTA SOPRA LE SUBROUTINE 
500 REM SUBROUTINE TEMPORIZZATORE 
510 GOSUB 640 

520 FOR TI = TS TO 0 STEP - 1 

530 H = 19; REM LETTURA DIGITALE TABULAZIONE NOMINALE 

540 IF TI < = 99 THEN H = H + 1 

550 IF TI = 99 THEN GOSUB 640 

560 IF TI < = 9 THEN H = H + 2 

570 IF TI = ? THEN GOSUB 640 

580 VTAB 22; HTAB H; GOSUB 740: GOSUB 890 

590 PRINT TI: 1 SECONDI ALLA FINE’ 

600 REM CORREZIONE TEMPORIZZAZIONE 
610 FOR N = 1 TO TC: NEXT N 
620 NEXT TI 
630 RETURN 

640 HOME : VTAB 22: PRINT 'PASSO ';ST;': *jT;* MIN.': RETUR 

650 REM CONTROLLO ALLARME 
660 FOR N = 1 TO K 
670 FOR J = 1 TO TA 
680 GOSUB 720 
690 NEXT J 

700 FOR L = 1 TO 100: NEXT L: REM PAUSA 
710 NEXT N: RETURN 

720 S = - 16336:X = PEEK (Si - PEEK (Si - PEEK (Si - P 
EEK (Si - PEEK (S) - PEEK (Si - PEEK (S) - PEEK (Si 
- PEEK (S) - PEEK (S) - PEEK (Si - PEEK <S) - REE 
K <S) - PEEK (S) - PEEK (Si: RETURN 
730 HOME : VTAB 22: RETURN 
740 REM GRAFICA DELL'OROLOGIO 


750 HGR liti = INT (TI / 60):TH = TI 
760 TH = TH - 60: IF TH > 60 GOTO 760 
770 SC = TH 

780 X = 139:Y = 79:R = 60:RS = 75 
790 AM = MN * .5236 
800 AS = SC * .1047 
810 XM = R * SIN (AM) 

820 YM = R * COS (AM) 

830 XS = RS * SIN (AS) 

840 YS = RS * COS (AS) 

850 HC0L0R= A: HPLOT X,Y TO X + XM,Y - YM 
860 HC0L0R= B: HPLOT X.Y TO X * XS.Y - YS 
870 RETURN 

880 REM SCANSIONE SECONDI 

890 S = - 16336:X = PEEK (Si - PEEK (Si - PEEK (SD: RET 
URN 

900 REM FINISCE FINO ALLA RIPETIZIONE 

910 TEXT : HOME : VTAB 10: HTAB 5: PRINT 'ALLA PROSSIMA VOL 

TA- ': VTAB 22: END 

920 REM FINE DELLE SUBROUTINE 
1000 REM PROGRAMMA PRINCIPALE 
1020 TEXT : CALL - 936 

1040 VTAB 2: HTAB 9: PRINT '**«** TIMER ***»*' 

1050 VTAB 23; PRINT '(C) 1985 BY APPLICANDO 4 MICROSPARC,IN 
C.' 

1060 POKE 34,3: VTAB 10 

1080 PRINT "QUESTO PROGAMMA CONTERÀ' ALLA ROVESCIA": PRINT 
: PRINT 'FINO A 25 PERIODI PRESTABILITI.": PRINT : INP 
UT 'INTRODUCI IL NUMERO DI INTERVALLI.. *:N1X 
1100 HOME : VTAB 5: PRINT 'ADESSO INTRODUCI LA LUNGHEZZA DI 
': PRINT : PRINT 'OGNI PERIODO IN MINUTI DECIMALI': PR 
INT '(ES. 3.25)': PRINT 
1120 VTAB 9 

1140 FOR I = 1 TO NIX: PRINT : PRINT 'PERIODO 'jl;' : I 

NPUT TKI) 

1160 TS(I) = INT (TI(I) * 60): NEXT : REM ARROTONDA AL S 
EC0ND0 PIU' VICINO 

1180 VTAB 20: PRINT '*** IltlISSIONI GIUSTE <S)'; : HTAB 27: 

INPUT A4: IF LEN <A4) = 0 THEN Ai = "S' 

1200 IF LEFT4 (Al,l) < > "S‘ THEN 1000 
1220 HOME 

1240 VTAB 15: PRINT 'PER COMINCIARE A TEMP0RIZ2ARE": PRINT 
: PRINT "IL PRIMO PASSO PREMI RETURN. ':: GET A* 

1260 FOR ST = 1 T0 N!X:T = ( INT (TKST) * 100 * .5)) / 100 
:TS = TS(ST) 

1280 GOSUB 500: GOSUB 650: GOSUB 730 
1300 IF ST = NIX THEN GOTO 1360 

1320 VTAB 22: PRINT 'PER COMINCIARE A TEMP0R1Z2ARE IL PER30 
DO': PRINT : PRINT "SEGUENTE PREMI IL TASTO RETURN .": 
: GET Ai 
1340 NEXT . 

1360 TEXT : HOME : VTAB 5: PRINT '*** SCEGLI IL NUMERO APPR 
OPRIATO: ' 

1380 VTAB 8: HTAB 5: PRINT '(1) RIINIZ1ARE IL TEMPORIZZATOR 
E" 

1400 VTAB 10: HTAB 5: PRINT '(2) SCEGLIERE I NUOVI PARAMETR 
I' 

1420 VTAB 12: HTAB 5: PRINT *(3) FINIRE ' 

1440 VTAB 15: HTAB 10: INPUT 'SCEGLI : ";A4 
1460 IF LEN (Ai) = 0 THEN SEX = 1: GOTO 1520 
1480 IF VAL (Ai) < 1 OR VAL (Ai) > 3 THEN 1360 
1500 SEX = VAL (Ai) 

1520 0N SEX GOTO 1240,1000,910 


I 


80 













utile per le vostre esigenze di fotografi 
dilettanti in quanto vi consente di sta¬ 
bilire una sequenza di lavoro perfetta¬ 
mente adatta alle vostre esigenze (e 
all’attrezzatura della vostra camera 
oscura) permettendovi di ripetere al- 
l’infinito, con il solo uso del tasto RE¬ 
TURN, il ciclo che avete laboriosa¬ 
mente messo a punto dopo molte pro¬ 
ve. Anche l’amante della cucina più 
complessa e elaborata trova in TI¬ 
MER un alleato prezioso così come, 
tanto per dare un’idea della sua versa¬ 
tilità, il distratto o il professionista 
molto impegnato può usare TIMER 
per trasformare il suo Apple sulla scri¬ 
vania in una èfficentissima segretaria 
che lo avverta per tempo degli impegni 
programati per la giornata. 

Struttura 

Questo programma è strutturato 
con tutte le subroutine al principio. A 
partire dalla linea 300 vengono invece 
inizializzate le variabili: le linee 320 e 
340 contengono i codici dei colori delle 
lancette dell’orologio analogico, la li¬ 
nea 360 contiene la variabile TC di 
regolazione del loop FOR-NEXT 
che misura il trascorrere di un secondo 
e la linea 380 il numero massimo di 25 
periodi di tempo programmabili. Le 
linee 400 e 420 contengono invece la 
definizione dei parametri che regola¬ 
no il suono dei cicalini al trascorrere 
dei secondi e alla fine di ogni singolo 
periodo programmato. 

Il tempo "contato" da TIMER tra un 
secondo e l’altro è la somma del tempo 
di esecuzione del loop alla linea 610 
(dove interviene la variabile TC) e il 
tempo di elaborazione impiegato per 
"aggiornare" la grafica dell’orologio 
analogico e di quello digitale sullo 
schermo. Dovrete quindi agire sul va¬ 


lore di TC per "accordare" il vostro 
modello di Apple con un orologio 
campione. 

In pratica, bassi valori di TC (che 
inizialmente ha il valore 200) accelera¬ 
no il contasecondi, mentre valori più 
elevati lo rallentano. Con un paio di 
semplici prove potrete regolare il vo¬ 
stro contasecondi con un buon orolo¬ 
gio da polso dotato di lancetta dei se¬ 
condi. Per questa regolazione vi consi¬ 
gliamo di scegliere periodi di tempo 
piuttosto lunghi (almeno 15 minuti per 
volta) in modo da potere valutare con 
un certa accuratezza lo scarto esistente 
tra l’orologio campione e quello rea¬ 
lizzato sul vostro Apple -tramite TI¬ 
MER. 

Le variabili K e TA controllano il 
numero e la durata dei segnali sonori 
alla fine di ogni periodo programma¬ 
to. Anche in questo caso potete "pers¬ 
onalizzare" il segnale secondo i vostri 
gusti: poche prove vi permetteranno 
di raggiungere il risultato che preferi¬ 
te, sia come tono che come durata del 
suono d’avvertimento della fine di uno 
dei periodi programmati. 

Anche sui singoli scatti acustici che 
scandiscono il passare dei secondi po¬ 
tete intervenire per modificarne il suo¬ 
no o, addirittura, per sopprimerli. Vi 
basta soltanto sapere che sono genera¬ 
ti nella subroutine alla linea 890. 

Un altro ovvio perfezionamento di 
TIMER è costituito dalla creazione di 
una grafica migliore e più elegante per 
l’orologio analogico che appare sullo 
schermo. Vi lasciamo il piacere di 
creare a piacimento il vostro quadran¬ 
te avvertendovi soltanto di modificare 
la subroutine HI-RES alla linea 740 
per evitare che il vostro quadrante 
venga cancellato ad ogni movimento 
della lancetta dei secondi. 

I più esigenti possono invece ag¬ 


giungere una subroutine che consenta 
di inserire il tempo in ore, minuti e 
secondi sessagesimali per ogni periodo 
programmato. Per aiutarvi in questo 
compito vi facciamo notare che alla 
linea 1140 vengono introdotti i periodi 
di tempo sequenziali con la variabile 
TI che viene poi arrotondata alla linea 
1160. Basterà quindi creare una su¬ 
broutine che trsformi in decimali gli 
INPUT dati in sessagesimali e rimandi 
poi alla linea 1160 per l’arrotonda¬ 
mento. In questo caso, naturalmente, 
una seconda subroutine deve essere 
creata per la scrittura sul video delle 
cifre dell’orologio digitale. Infatti, per 
coerenza con il modo di inserire i tem¬ 
pi, il programma deve riconvertire il 
tempo in minuti e secondi sessagesi¬ 
mali prima di "inviarlo" alla linea 590 
per la scrittura su video dei secondi 
che mancano alla fine del periodo pro¬ 
grammato. 

TIMER infine si rivelerà un program¬ 
ma divertente per tutti coloro che vo¬ 
gliono imparare qualche "trucco" sulla 
programmazione. E infatti un pro¬ 
gramma breve e facile da capire e ana¬ 
lizzare ma nel contempo è anche un 
programma dove compaiono tutte le 
principali fuzioni dell’Applesoft, in¬ 
cluse quelle per la grafica in alta risolu¬ 
zione e per la creazione dei suoni. 

In ogni caso, per i fotografi dilettan¬ 
ti, per i cuochi più raffinati, per i più 
impegnati professionisti o per gli in¬ 
guaribili distratti, TIMER si rivelerà 
utile consentendo al vostro Apple di 
segnare anche il tempo. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d'ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- k 
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Mille programmi 



Ordinale subito. 
Sarai fra i primi 
a riceverle. 


Stai per acquistare 
un personal computer Apple? 

Vorrai sapere che cosa puoi farci. 
Questo volume è un aiuto indispen¬ 
sabile, una guida ragionata e com¬ 
pleta di tutti i programmi disponibili 
in Italia. Prima di fare il tuo acquisto 
non puoi non consultarlo, perché 
solo se avrai a disposizione i pro¬ 
grammi che ti interessano la scelta 
non ti lascerà deluso. 

Hai appena acquistato 
un personal computer Apple? 

Senza questa raccolta di program- 


per te 

mi non potrai mai sapere quali e 
quanti utilizzi potrai farne. 

Possiedi già da tempo 
un personal computer Apple? 

Allora non c’è bisogno di dirti quan¬ 
to può essere prezioso questo libro: 
sai già che il tuo computer, senza 
programmi, è come un’auto senza 


benzina. E poiché non c’è limite alla 
fantasia e all’inventiva, consultando 
questa guida scoprirai utilizzi im¬ 
pensati per il tuo personal. Utilizzi 
che ti permetteranno nel lavoro, nel 
tempo libero, nel gioco o nello stu¬ 
dio, di essere sempre il più aggior¬ 
nato, il più organizzato, il più soddi¬ 
sfatto... 

Sei interessato ai programmi 
per Macintosh? 

In questa nuovissima edizione delle 
Pagine del Software per Apple trovi 
elencati, con una approfondita de¬ 
scrizione, tutti i programmi disponi¬ 
bili in Italia. 


Nuova edizione 
aggiornata 
e ampliata. 

Le Pagine del Software 
sono un supplemento 
di Applicando, 
il mensile per i personal 
computer Apple. 
Acquistarle 
singolarmente 
costa 15.000 lire. 

Per chi si abbona ad 
Applicando sono in 
regalo. 


Desidero ricevere, senza aggravio di spese postali. Le Pagine del Software, con la seguente lormula (segnare la casella 
di proprio interesse): 

□ 15.000 lire per ricevere l'edizione 1985 di Le Pagine del Software per Apple. 

□ 50 000 lire per ricevere 10 numeri di Applicando e in regalo l'edizione 1985 di Le Pagine del 
Software per Apple 

COGNOME E NOME . 

VIA . N . 

CAP . CITTÀ . PR0V . 

□ Allego assegno non trasferìbile di L. intestato a Editronica Srl. 

□ Allego ricevuta di versamento di L.sul CC postale N. 19740208 intestalo a Editronica Srl. 

Corso Montone 39. 20122 Milano 

□ Pago fin d'ora con la mia carta di credito Bankamericard N . scadenza. 

Data . Firma ... 


Le Pagine del Software 
per Apple sono pubblicate 
da Editronica, leader 
dell’editoria elettronica. 


Ritagliar», compilar» » 
spedir»a: Editronica Srl, 
Corso Monfort» 30, 

20122 Milano. 



















Un buon programma per disegnare: ma non solo per bambini dos 3.3 

^r^che vogliono giocare. Il concetto dei potenti e costosi programmi J; P ° L D ° s //( 
di CAD CAM, alla portata dell’Apple, ne fa uno strumento quasi APPLE ◄« 

professionale. 




Designer 


grafica che rappresenti piante e arredi 
esterni potrete trovare la soluzione 
migliore per il vostro giardino o per la 
terrazza di casa. 

Per i progettisti di impianti idraulici 
ed elettrici invece basta costruire i sim¬ 
boli tecnici delle varie utenze e reti per 
avere a disposizione lo strumento 
ideale per la progettazione di reti an¬ 
che complesse. 

Designer può anche servirvi per gio¬ 
care con la fisionomia dei volti: una 
tavola grafica con nasi, occhi, orecchie 
e altri particolari di viso da combinare 
con Designer per creare fisionomie 
sempre nuove e buffe giocando a fare i 
detectives. Analogamente si può 
sfruttare la potenzialità di questo pro¬ 
gramma per la grafica e i caratteri in 
alta risoluzione. 

In definitiva la versatilità e la facilità 
d’uso di Designer vi consente di con¬ 
centrarvi sulla parte creativa del dise¬ 
gno eliminando le complesse e noiose 
manovre tipiche di altri programmi. 

Come funziona 

Designer permette di disegnare e 
combinare fra loro le figure di una ta¬ 
vola delle figure sullo schermo Hi- 
Res. La versatilità del programma sta 
nel fatto che lo si può usare con qual- 


A prima vista Designer potrebbe 
sembrare solo un banale pro¬ 
gramma di disegno in alta risoluzione. 
Invece al suo interno si nasconde il 
potenziale per un impiego nell’area 
del Computer Aided Design (CAD), 
la progettazione assistita dal compu¬ 
ter. Il CAD è una tecnica importante 
per il design quanto lo è per la scrittura 
l’elaborazione dei testi. Presenta gli 
stessi vantaggi, come la facilità di ap¬ 
portare cambiamenti e la possibilità di 
utilizzare elementi grafici ripetitivi 
senza doverli ridefinire completamen¬ 
te ogni volta. Naturalmente questo 
programma non può competere con i 
sistemi CAD professionali che si uti¬ 
lizzano su macchine più potenti, ma 
resterete sorpresi vedendo quanto 
permetta di fare con il vostro Apple. 

Applicazioni 

Se si costruiscono figure che rappre¬ 
sentino scrivanie, sedie, tavoli, divani, 
letti e altri elementi dell’arredo, Desi¬ 
gner permette di variarne la disposi¬ 
zione su una pianta assegnata, in mo¬ 
do da valutare la migliore disposizione 
dei "pezzi" esistenti. Molto utile per 
architetti e arredatori serve anche per 
coloro che vogliono fare da sé. 
Analogamente creando una tavola 
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siasi tavola delle figure a disposizione. 
Per citare un esempio classico suppo¬ 
niamo di creare una tavola delle figure 
comprendente vari componenti elet¬ 
tronici e porte. In tal caso utilizzando 
tale tavola con il Designer si possono 
creare e perfezionare schemi elettro¬ 
nici. Inoltre, se dovete progettare di¬ 
versi circuiti utilizzanti lo stesso tipo di 
alimentatore, potete fare uno schema 
di quella sezione del circuito, salvarlo 
su dischetto, poi riportarlo a formare 
la base di ciascuno degli schemi defini¬ 
tivi di circuito. Creando una tavola 
con gli elementi desiderati diventa 
molto semplice qualsiasi tipo di pro¬ 
gettazione che richieda elementi grafi¬ 
ci standardizzabili. 

Queste tavole delle figure specializ¬ 
zate possono essere create rapidamen¬ 
te e facilmente usando il programma 
"Apple illustratore" che abbiamo già 
presentato nel numero scorso. Desi¬ 
gner ha però una sua tavola grafica che 
comprende gli elementi geometrici più 
comuni come quadrati, triangoli, cir¬ 
conferenze e rettangoli nelle varie di¬ 
mensioni che possono servire. 


Sommario 
dei controlli 

La maggior parte delle funzioni di 
Designer può essere usata premendo il 
tasto corrispondente alla prima lettera 
del nome della funzione. Dato che le 
funzioni non sono poche era un’impre¬ 
sa escogitare per ciascuna funzione un 
nome che indicasse quello che la fun¬ 
zione fa e al tempo stesso avesse un’i¬ 
niziale diversa da tutte le altre. Si do¬ 
veva anche cercare di non utilizzare 
tasti immediatamente adiacenti ai tasti 
I, J, K e , (tasto virgola), che corri¬ 
spondono nella tastiera americana ai 
tasti I, J, K, M. Infatti questi tasti ven¬ 
gono normalmente azionati senza 
guardare la tastiera, e questo rende 
facile la pressione accidentale di un 
tasto adiacente. In realtà il tasto N 
viene usato in Designer ma fortunata- 
mene i risultati della sua pressione non 
possono provocare veri danni se que¬ 
sta è avvenuta accidentalmente. 

Le videate che pubblichiamo qui a 
destra, mostrano un sommario dei 
controlli e delle loro funzioni. 

Oltre a utilizzare i tasti N e 
CTRL-N per far scorrere su video la 
tavola delle figure, si può anche sce¬ 
gliere una figura battendone il nume¬ 
ro. Il programma si attende un nume¬ 
ro di tre cifre, e quindi per selezionare 
la figura numero 5 si deve digitare 005. 


CON QUESTO PROGRAMMA PUOI DISEGNARE 
FIGURE SULLO SCHERMO IN HI-RES, DA UTI¬ 
LIZZARE NELLE TA'JOLE DELLE FIGURE 
CE' ANCHE UNA TAUOLA DELLE FIGURE 
STANDARD CHIAMATA 'TAUOLA/PROGRAMMA' 
COMPRENDENTE MARI DISEGNI CHE PUOI USARE 


-CONTROLLI PER IL DI3EGN0- 


D -DISEGNA FIGURA 
X -CANCELLA FIGURA 
R -AUMENTA ROTAZIONE 
TRL-R -DIMINUISCE ROTAZIONE 
S -AUMENTA SCALA 
TRL-S -DIMINUISCE SCALA 
C -CAMBIA COLORE 

ATTENZIONE!! CTRL-C FERMA IL PROGRAMMA! 

N -MOSTRA LA FIGURA SEGUENTE 
TRL-N -MOSTRA LA FIGURA PRECEDENTE 
< OPPURE BATTI IL NUMERO DELLA FIGURA) 
TRL-E -COLORA L'INTERO SCHERMO 

CM' PER ALTRO, <ESC> PER TORNARE) 


-CONTROLLI SPOSTAMENTO- 

- CONTROLLO DA TASTIERA : 

I - FIGURA IN SU DI UN DOT 
J - FIGURA A SINISTRA DI UN DOT 
K - FIGURA A DESTRA DI UN DOT 
M - FIGURA IN GIU' DI UN DOT 
CTRL-I - FIGURA IN SU DI 8 DOT 
CTRL-J - FIGURA A SINISTRA DI 8 DOT 
CTRL-K - FIGURA A DESTRA DI 8 DOT 
CTRL-M - FIGURA IN GIU' DI 8 DOT 

- CONTROLLO CON LE PADDLE 

gDU 0) - SPOSTAMENTO IN ORIZZONTALE 

POLO ; - SPOSTAMENTO IN UERTICALE 

FULSANTE- DISEGNA LA FIGURA 


CM' PER ALTRO, <ESC> PER TORNARE) 


—ALTRI CONTROLLI- 


CTRL 


CTRL 

< E S 


-D 

C > 


-COMMUTA FRA TUTTO SCHERMO E 
SCHERMO MISTO 

-COMMUTA FRA TAUOLA FIGURE PRO¬ 
GRAMMA E TAUOLA FIGURE UTENTE 
-CARICA UN'ALTRA TAUOLA UTENTE 
-AZIONE : COMMUTA FRA CONTROLLO 
PADDLE E CONTROLLO TASTIERA 
-SALUA SU DISCO LO SCHERMO HI-RES 
-CARICA UNA FIGURA DAL DISCO 
-CARICA UN FILE UETTORI AL POSTO 
DELLA TAUOLA FIGURE IN USO 
-CATALOGO DEL DISCO 
-UISUALIZZA QUESTE ISTRUZIONI 
-FINE PROGRAMMA 


ii CIASCUNA DELLE FIGURE PIJO' ESSERE 
PENNELLO ' E SPOSTATA PER 
BiEMPIREUNASJPERFIDIE, 0 SOURAPPOSTA 
FER CREARE NUOUI SCHEMI ED EFFETTI 

CR 1 PER RILEGGERE, <ESC> PER TORNARE) 


La scelta dei tasti di controllo è stata fatta anche tenendo conto di 
eventuali pressioni accidentali dei tasti stessi. 



















Se si fa un errore o si cambia idea 
durante questa operazione premete 
un tasto qualsiasi per annullare la sele¬ 
zione. 

Riempimento 
dello schermo 


applicando applicando 

applicando 

applicando applicando 


applicando 

applicando applicando 







UUUIp^ 
AZIONE : 

BIANCO 1 

TASTIERA 

rnjTlbKUhYoTjE A 
ROTAZIONE 0 

X = 

4 

T ADULA : 

P R U G R A M t' 

A SCALA 1 

V ■ 90 


Ecco un esempio applicativo di Designer: il logo della rivista 
Applicando duplicato più volte. 


Per iniziare un disegno è più como¬ 
do avere lo schermo "riempito" di un 
colore specifico. Per cominciare quin¬ 
di dovete scegliere il colore che prefe¬ 
rite premendo il tasto C. Quando il 
colore voluto è visualizzato nella fine¬ 
stra di testo premete CTRL—E. Così 
si cancellerà qualsiasi disegno esisten¬ 
te sullo schermo e si potrà cominciare 
da capo. 

Spostamento 
e disegno 

Disegnare tramite tastiera o padd- 
le? Sia l’uno sia l’altro metodo di con¬ 
trollo dell’azione hanno i loro vantag¬ 
gi. L’uso della tastiera vi consente una 
maggior precisione e vi libera dal ner¬ 
vosismo delle paddle. Potete spostare 
rapidamente la figura in posizione te¬ 
nendo premuto il tasto CTRL e pre¬ 
mendo uno dei quattro tasti di direzio¬ 
ne I, J, K e, (virgola). I ritocchi finali li 
farete in seguito, premendo soltanto i 
tasti di direzione. Supposto che i fatto¬ 
ri di scala e di rotazione facciano al 


caso vostro dovete premere D per di¬ 
segnare la figura con DRAW o X per 
cancellarla con XDRAW. 

L’impiego delle paddle o di un joy¬ 
stick vi permette invece di usare la 
figura come pennello. Se scegliete per 
esempio una delle circonferenze, 
muovendola lentamente sullo scher¬ 
mo mentre tenete premuto un pulsan¬ 
te otterrete lo schema di un tubo tor¬ 
tuoso. 

Le figure possono essere usate an¬ 
che come "gomma" per correggere gli 
errori di disegno e apportare cambia¬ 
menti ai disegni già creati. 


Tutto schermo 
e schermo misto 

Il tasto F permette la commutazione 
della visualizzazione su video. Le due 
posizioni sono con il disegno a pieno 
video o con una finestra di testo inseri¬ 
ta sul disegno. Tale finestra mostra lo 
stato di varie cose, come il colore scel¬ 
to, e viene utilizzata anche per i mes¬ 
saggi e i prompt di input. Se si sta 
lavorando a tutto schermo e si usa un 
comando che richiede che si veda la 
finestra di testo il programma riporte¬ 
rà automaticamente allo schermo mi¬ 
sto. 

Quando si usa il tasto T per commu¬ 
tare fra la propria tavola delle figure e 
la tavola del programma viene caricata 
dal dischetto quella appropriata. Se si 
sono scambiati i dischetti il program¬ 
ma non riuscirà a trovare la tavola giu¬ 
sta e ne darà comunicazione. Non c’è 
che da inserii^ il dischetto giusto e 
riprovare. 

L’uso delle tavole 
di vettori 

Oltre a usare le tavole delle figure 
questo programma può anche dise¬ 
gnare una figura basata su un file di 
vettori creato dal programma Apple 
illustratore (Applicando n. 15). Ciò 
potrebbe risultare comodo qualora 
non riusciste a trovare una particolare 
tavola, ma soltanto i file di vettori che 
sono entrati a farne parte. Quando 
avrete finito di utilizzare un file di vet- 



Un altro esempio: lo schema elettrico di un allarme a intermittenza. 
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Listato 1 - DESIGNER 


10 REM ********************** 

11 REM * DESIGNER * 

12 REM * DI COLIN FRENCH * 

13 REM * COPYRIGHT (0 1985 * 

19 REM » BY APPLICANDO 4 * 

15 REM * MICROSPARC, INC * 

14 REM ********************** 

80 IF PEEK (109) = <59 THEN 120 

90 POKE 103,1 : P0KE 109,49: POKE 14389,0 

100 PR1NT CHRi (4) ;*RUN DESIGNER - 

110 REM ******* INITIALIZZA VARIABILI ********** 

120 Di = CHRi (4): TEXT : HOME 
130 DIM CÌ(7),At(l),TÌ<2> 

140 Ci(0) = ‘NERO l‘:Ct(l) = 'VERDE ':Ci(2>='BLU 1 

150 Ci(3) = 'BIANCO l':CÌ(4) = 'NERO 2':CÌ(5) = "ARANCIO ' 

140 Ci<4> = "VIOLA ":CÌ(7) = 'BIANCO 2' 

170 Ai<0) = 'TASTIERA':AÌ<1) = 'PADDLES ’ 

180 T$(0) = "UTENTE ':T»<1) = 'PROGRAMMA':T4<2) = 'NESSUN 
0' 

190 Di = CHRi (4):XC = 140:YC = 90 
200 TABLE = 0:SCREEN = 0:ACT = 0 
210 CC = 3: HCOLOR= CC:RR = 0: ROT= RR 
220 SS = li SCALE= SS:W = 1 
230 FAST = 8:UNÌ = ":NUM» = " 

240 REM -IMPOSTA INDIRIZZO TAVOLA FIGURE- 
250 POKE 232.1 : POKE 233,8 
240 REM -VISUALIZZA PRESENTAZIONE- 
270 GOSUB 4000 

280 REM -RICEVE NOME DELLA TAVOLA FIGURE- 
290 LOC = 1: GOTO 400 
300 : 

310 REM ******* INIZIALIZZA SCHERMO ************* 

320 : 

330 HGR 

340 HOME : VTAB 21 

350 IfWERSE : PRINT ' ** DESIGNER ** ? -ISTRUZIONI 
': NORMAL 

340 PRINT 'COLORE: 'jC»(CC);' NtflERO FIGURA : '; : HTA 

8 37: PRINT W 

370 PRINT 'AZIONE: ';A«(ACT);' ROTAZIONE: X: '{: HT 
AB 30: PRINT RR:: HTAB 37: PRINT XC 
380 PRINT 'TAVOLA: ;TÌ(TABLE);' SCALA : Y: HT 

AB 30: PRINT SSj: HTAB 37: PRINT YC; 

390 GOTO 1000 
400 : 

410 REM ******* RICEVE NOME TAVOLA DELL'UTENTE ****** 

420 : 

430 TABLE = 0:M4 = 1 

440 IF SCREEN = 1 THEN SCREEN = 0: POKE - 14301,0 
450 HOME : VTAB 24: PRINT ■ (DEFAULT= TAVOLA/'; 

440 IF UN» < > '■ THEN PRINT UN»:')'j 
470 IF UN» = " THEN PRINT Ti(l): )'; 

480 HTAB 1: VTAB 22: PRINT ‘NOME DELLA TAVOLA? TAVOLA/'; 
490 LMT = 22: GOSUB 700: IF U» = " THEN U$ = UNI 
500 IF W» = " THEN TABLE = 1: GOTO 590 
510 ONERR GOTO 550 

520 VTAB 22: PRINT : PRINT Dt;'8L0AD TAVOLA/' ;U»;' ,A»801' 
530 REM -RESET FLAG ERRORE- 
540 POKE 214,0:UN» = Wi: GOTO 440 
550 POKE 214,0: HOME : VTAB 22 

540 IF PEEK (222) = 11 THEN PRINT 'NOME DI FILE NON VAL1D 
0.': PRINT 'RIPROVA. (BATTI (RETURN» ';: GET Zi: GOT 
0 400 

570 IF PEEK (222) = 4 THEN PRINT 'LA TAVOLA NON E' SU QUE 
STO DISCO.’: PRINT 'RIPROVA, (PREMI (RETURN)) ';: GET 
Zi: GOTO 400 
580 GOTO 900 
590 ONERR GOTO 430 

400 VTAB 22: PRINT : PRINT D»;'BLOAD TAVOLA/PROGRAItIA,A»801 

410 REM -RESET FLAG ERRORE- 
420 POKE 214,0: GOTO 440 
430 POKE 214,0: HOME : VTAB 22 

440 IF PEEK (222) = 4 THEN PRINT "TAVOLA/PROGRAftIA NON E' 
SU QUESTO DISCO.'u PRINT 'INSERISCI IL DISCO GIUSTO.' 
: PRINT '(PREMI (RETURN» ';: GET Zi: GOTO 400 
450 GOTO 900 

440 REM -RICEVE IL NUMERO DELLE FIGURE DELLA TAVOLA- 
470 SNUM = PEEK (2049) 

480 IF LOC = 1 THEN GOTO 300 





490 GOTO 340 
700 : 

710 REM ******* ROUTINE DI INPUT MULTI-LETTERA **** 

720 : 

730 Wi = " 

740 GET Zi 

750 IF Z» = CHR» (13) THEN RETURN 

740 IF Zi = CHRi (8) THEN 790 

770 IF LEN (Wi) = LMT THEN 740 

780 PRINT Zi;:UÌ = Ui * Zi: GOTO 740 

790 IF LEN (Ut) = 0 THEN 740 

800 PRINT CHRi (8);: PRINT ' PRINT CHRi (8); 

810 IF LEN (Ui) = 1 THEN 730 

820 Wi = LEFTt (Wi, LEN (Wi) - 1): GOTO 740 

900 : 

910 REM ******* ERRORI DISCO INCONSUETI *********** 

920 : 

930 PRINT 'UN ERRORE DI SISTEMA N.'j PEEK (222);' E' AWENU 
TO' 

940 PRINT 'A LINEA N.'; PEEK (218) * PEEK (219) * 254 
950 POKE 214,0: END 
1000 : 

1010 REM *********** LOOP PRINCIPALE ***************** 

1020 : 

1030 XDRAU W AT XC,YC 

1040 REM -CONTROLLA IL TASTO PREMUTO- 

1050 K = PEEK (- 14384): POKE -14348,0 

1040 XDRAU W AT XC.YC 

1070 IF K ( 128 THEN Ki = '■: GOTO 1340 

1080 Ki = CHRi (K - 128) 

1090 REM -SALTA ALLE FUNZIONI- 

1100 IF ASC (Kt) ) = ASC CO') AND ASC (Ki) < = ASC ( 
■9') THEN 1900 „ . 

Continua 
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tori non dovrete fare altro che preme¬ 
re il testo T per ricaricare la tavola 
delle figure. Se avrete specificato il 
numero della tavola che desiderate, 
Designer la cercherà sul dischetto, al¬ 
trimenti, in mancanza di specificazio¬ 
ni, verrà caricata la tavola delle figure 
ordinaria. 


Tavola/programma 

Per la maggior parte, le figure di 
Tavola/programma sono destinate a 
essere usate nella stessa scala in cui 


lo pieno più piccolo, poi si vada alla 
figura successiva, un anello che si 
adatta attorno a quel circolo, e dise¬ 
gnatela ottenendo un cerchio più gran¬ 
de. Naturalmente se volete una coro¬ 
na circolare (un anello, per intendersi) 
è sufficiente scegliere soltanto la se¬ 
conda figura. 

Le poche figure che possono essere 
portate in scala sono la linea (figura 
numero 2), il quadrato (figura numero 
3) e il rettangolo (figura numero 24). 

La linea è particolarmente utile. 
Per disegnare una qualsiasi linea è suf¬ 
ficiente ingrandire in scala la figura 
della tavola fino alle dimensioni ri¬ 


Lista delle illustrazioni 
di Tavola/Programma 


Immagine ,V. 

Figura N. 

Nome 

1 

1 

Dot 

2 

2 

Linea 

3 

3 

Quadrato. Profilo ' 

4 

4 

QUI. Riempito 

5 

5 

QU2. Riempito 

6 

6 

QU3. Riempito 

7 

7 

QU4. Riempito 

8 

8,9,10 e 11 

Circolo 1. Profilo. 
Circolo 2. Profilo, 
Circolo 4. Profilo 

9 

12 

Circolo 1. Riempito 

10 

13 

Circolo 2. Riempito 

11 

14 

Circolo 3. Riempito 

12 

15 

Circolo 4. Riempito 

13 

16, 17, 18 e 19 

TRI1. Profilo, 

TR12. Profilo, 

TRI3. Profilo 

14 

20 

TRI1. Riempito 

15 

21 

TRI2. Riempito 

16 

22 

TRI3. Riempito 

17 

23 

TRI4. Riempito 

18 

24 

Rettangolo. Profilo 

19 

25 

Retti. Riempito 

20 

26 

Rett2. Riempito 

21 

27 

Rett3. Riempito 

22 

28 

Rett4. Riempito 


Un esempio 


compaiono. L’ingrandimento di un 
determinato cerchio, per esempio, 
non avrà come risultato un cerchio 
pieno più grande. Provare per crede¬ 
re. È questo il motivo per cui sono 
state previste diverse dimensioni per 
ciascuna figura. 

Ogni gruppo di figure è congegnato 
in modo che esse si "annidino" l’una 
nell’altra. Così se si vuol disegnare un 
circolo pieno grande si disegni il circo¬ 


chieste. Se è necessario potete poi ruo¬ 
tare la linea ottenuta e, quando vi sem¬ 
bra di avere ottenuto il risultato che 
desideravate, dovete premere il tasto 
D per disegnarla. Non dimenticatevi 
poi di riportare la scala a uno prima di 
passare alla figura piena, altrimenti as¬ 
sisterete a un affascinante spettacolo 
grafico che, ne siamo certi, non vi farà 
troppo piacere perché vi costringerà a 
rifare tutto. 


Allo scopo di rendere un po’ più 
chiara la moltitudine di funzioni di 
DESIGNER realizziamo il semplice 
schema elettronico visibile nella figura 
1. Supponiamo di aver già creato (e 
salvato su dischetto con il nome 
ELETTRONICA) una tavola delle fi¬ 
gure contenente il disegno di ogni 
componente elettronico che potrem¬ 
mo voler usare. Quelle che ci interes¬ 
sano in questo caso sono: una linea, un 
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quadrato per i circuiti integrati, una 
resistenza, un condensatore non pola¬ 
rizzato, un simbolo di terra, un alto- 
parlante e infine un dot 3x3 che utiliz¬ 
zeremo per indicare le connessioni al¬ 
l’incrocio delle linee. 

Se decidete di esercitarvi con que¬ 
sto esempio sulle possibilità di DESI¬ 
GNER dovete battere la "tavola delle 
figure di elettronica". Quando è com¬ 
pletamente introdotta dovete salvarla 
con il comando: 


BSAVE TAVOLA/ELETTRONI- 
CA,A$9C5,L$4E2 


Adesso potete iniziare a usare DE¬ 
SIGNER. Dopo che il computer vi ha 


chiesto se volete le istruzioni vi chiede 
il nome della tavola delle figure che 
volete usare. Se premete il tasto RE¬ 
TURN verrà caricata la tavola di de¬ 
fault indicata fra parentesi. Voi dove¬ 
re battere invece ELETTRONICA e 
verrà caricata la Tavola/elettronica 
che contiene le figure che servono per 
disegnare lo schema elettronico pro¬ 
posto per esercizio. Lo schermo viene 
pulito e viene visualizzata la prima fi¬ 
gura della tavola. 

La finestra di testo indica il corrente 
colore di disegno (in questo caso: 
bianco 1), il numero della figura che 
viene visualizzata (1), se la figura può 
essere mossa con controllo da tastiera 
o da paddle (tastiera), il fattore di ro¬ 
tazione usato per disegnare la figura 


(0), la coordinata X della figura (140), 
se la tavola che si sta usando è dell’u¬ 
tente oppure quella ordinaria del pro¬ 
gramma (in questo caso è dell’utente), 
il fattore di scala usato per disegnare la 
figura (1) e infine la coordinata Y della 
figura (90). 

Cominciate disegnando i due circui¬ 
ti integrati temporizzatori 555. Dovete 
scegliere il quadrato, figura numero 2 
della nostra tavola, o premendo il ta¬ 
sto N per avanzare alla figura successi¬ 
va della tavola o battendo 002. A que¬ 
sto punto dovete spostare il riquadro 
sul lato sinistro dello schermo tenendo 
premuto il tasto CTRL e premendo il 
tasto J. 

Per assicurarsi che ci sia spazio a 
sufficienza per inserire il contrassegno 


1110 1F NUM < > " THEN NUM$ = ”: VTAB 22: HTAB 37: PR1N 
T" HTAB 37: PRINT NN 
1120 IF Ki = 'C" THEN 2000 
1125 1F K$ = '0' THEN GET Kt: GOTO 1120 
1130 1F Kf = •R" THEN 2100 
1140 1F K$ = CHRf (18) THEN 2150 
1150 IF K$ = "S* THEN 2200 
1160 IF Kf = CHR* (1?) THEN 2250 
1170 IF K* = 'N* THEN 2300 
1180 IF K$ = CHR$ (14) THEN 2350 
1190 IF K4 = -0* THEN DRAU NN AT XC.YC: GOTO 1000 

1200 IF K$ = "X' THEN X = PEEK <8192) :1)CC = 1NT (X / 128) 

:X = X - (128 » 1XX):XX = 1NT (X / 42) :X = XX * (4 * 
ÌXX): HC0L0R= X: DRAU NN AT XC,YC: HC0L0R= CC: GOTO 10 
00 

1210 IF K$ = "F" THEN 2400 

1220 IF K$ = 'T' THEN 2500 

1230 !F K4 = "A' THEN 2700 

1240 IF K$ = CHRf (20) THEN LOC = 2: GOTO 400 

1250 IF K$ = 'P 1 THEN 2800 

1260 IF K$ = 'G' THEN 3000 

1270 IF K4 = , V THEN 3200 

1280 IF K$ = CHRf (5) THEN HPL0T 0,0: CALL 62454; GOTO 10 
00 

1290 IF Kf = CHR$ (27) THEN TEXT : HOME : POKE 103,1: P0K 
E 104,8: POKE 105,24: POKE 106,8: 010 
1300 IF K$ = CHR$ (4) THEN 3400 

1310 IF Ki = "?■ THEN G0SUB 5000: POKE - 16304,0: GOTO 34 
0 

1320 REM -SPAZIO PER INSERIRE ALTRE FUNZIONI¬ 
LO REM -SPAZIO PER INSERIRE ALTRE FUNZIONI¬ 

LO REM -SPOSTAM0TTO DELLA FIGURA- 
1345 YN = YC:XN = XC 
1350 IF ACT = 1 THEN 1450 
1355 XN = Xr-YN = YF 

1360 IF K$ =''r THEN YC = YC - 1 : IF YC < 0 THEN YC = 191 

1370 IF K$ = 'J* THEN XC = XC - 1: !F XC < 0 THEN XC = 279 

1380 IF K* = ■K" THB1 XC = XC ♦ 1 : IF XC > 279 THEN XC = 0 

1390 IF K* = "M* THEN YC = YC + 1: IF YC ) 191 THEN YC = 0 

1400 IF K$ = CHR4 (9) THEN YC = YC - FAST: IF YC < 0 THEN 
YC = YC ♦ 191 

1410 IF K* = CHR$ (10) THEN XC = XC - FAST: IF XC < 0 THEN 
XC = XC + 279 

1420 IF K$ = CHRf (11) THEN XC = XC * FAST: IF XC > 279 TH 
EN XC = XC - 279 

1430 IF K$ = CHRJ (13) THEN YC = YC t FAST: IF YC ) 191 TH 
EN YC = YC - 191 

1435 IF YN = YC AND XN = XC THEN GOTO 1000 
1440 HTAB 1: VTAB 23: GOTO 370 
1450 XC = INT ( PDL (0) * 1.095) 

1460 F0R D = 1 TO 5: NEXT D 
1470 YC = INT ( PDL (1) / 1.34) 

1480 REM -VIENE PREMUTO IL PULSANTE?- 
1490 IF PEEK ( - 16287) ) 127 OR PEEK ( - 16286) > 127 TH 
EN DRAU tH AT XC,YC 

i495 IF YN = YC AND XN = XC THEN GOTO 1000 
1500 HTAB I: VTA B 23: GOTO 370 
1900 : 

1910 REM ******* SCELTA NUMERO DELLA FIGURA ****** 


1920 : 

1930 NUM* = NUMt ♦ K$ 

1940 IF LEN (NUMf) = 1 THEN VTAB 22: HTAB 37: PRINT ' 
1950 VTAB 22: HTAB 37: PRINT NUM* 

1960 IF LEN (NUM$) < 3 THEN 1000 
1970 T = VAL (NUMf):NUM$ = ■■ 

1980 IF T < 1 OR T > SNUM TH0<l HTAB 1: VTAB 22; GOTO 360 
1990 NN = T: HTAB 1: VTAB 22: GOTO 360 
2000 : 

2010 REM ******* INCREMENTO COLORE *************** 

2020 : 

2030 CC = CC * 1: IF CC > 7 THEN CC = 0 
2040 HCOL0R= CC: HTAB 1: VTAB 22: GOTO 360 
2100 : 

2110 REM ****** INCREMENTO ROTAZIONE ************* 

2120 : 

2130 RR = RR + 1 : IF RR > 63 THEN RR = 0 
2140 R0T= RR: HTAB 1: 'VTAB 22: GOTO 360 
2150 : 

2160 REM ******* DECREMENTO R0TAZI ONE ************ 

2170 : 

2180 RR = RR - 1 : IF RR < 0 THBi RR = 63 
2190 R0T= RR: HTAB 1: VTAB 22: GOTO 360 
2200 : 

2210 REM ******* INCREMENTO SCALA *************** 

2220 : 

2230 SS = SS + 1 : IF SS > 255 THB1 SS = 1 

2240 SCALE= SS: HTAB 1: VTAB 22: GOTO 360 

2250 : 

2260 REM ******* DECREM0ITO SCALA *************** 

2270 : 

2280 SS = SS - 1: IF SS < 1 THEN SS = 1 

2290 SCALE= SS: HTAB 1: VTAB 22: GOTO 360 

2300 : 

2310 REM ****** INCREMENTO NUMERO FIGURA ********* 

2320 : 

2330 NN = NW ♦ 1 : IF NN > SNUM THEN tfl = 1 
2340 HTAB 1: VTAB 22: GOTG 360 
2350 : 

2360 REM ****** DECREMENTO NUMERO FIGURA ********* 

2370 : 

2380 W = MI - 1: IF NN < 1 THEN NN = SNUM 
2390 HTAB 1: VTAB 22: GOTO 360 
2400 : 

2410 REM ****** TUTTO SCHERMO/SCHERMO MISTO ******* 

2420 : 

2430 SCREEN = NOT (SCREEN) 

2440 IF SCREEN = 0 THEN POKE - 16301,0 

2450 IF SCREEN = 1 THEN POKE - 16302,0 

2460 GOTO 1000 
2500 : 

2510 REM ****** TAVOLA UTENTE/TAVOLA PROGRAMMA ******* 

2520 : 

2530 IF TABLE = 1 AND UN» = ” THEN LOC = 2: GOTO 400 

2540 IF TABLE = 2 AND UN* = " THEN TABLE = 1: GOTO 2560 

2550 TABLE = NOT (TABLE) 

2560 'VTAB 22: PRINT : 0NERR GOTO 2630 

2570 IF TABLE = 0 THEN PRINT Df;’BLMD TAVOLA/",A$80 

1 " Continua 
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HA CASA TUA 


La MT/80+ e la PC dispongono di 
interfacciamento parallelo e seriale che permette 
di connettere questi prodotti a qualsiasi Micro o PC. 
Per la stampa a basso costo, le stampanti della 
famiglia MT/80 sono perfette, rispondendo ad 
ogni tua necessità di stampa. 

La velocità di stampa é a 100 o 130 cps. con una 
matrice estremamente chiara e pertanto ideale 
per stampare i tuoi listati, le tue lettere ecc. 

Le stampanti della famiglia MT/80 
oltre che trascinare la carta con 
trattori di spinta consentono 
anche, per mezzo della frizione, di 
inserire il foglio singolo. 

Le MT/80 sono belle a vedersi, 
facili da usare, non richiedono 
manutenzione preventiva, 
silenziose ed in più la versione 80 
PC é completamente 
TllttC compatibile con il tuo PC IBM. 

le garanzie 
del n.l 
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10099 San Mauro (TO) - Via Casale. 308 - Tel. (011) 8225171 
40050 Monteveglio (BO) - Via Einstein, 5 -Tel. (051) 832508 
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2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 


2660 

2700 

2710 

2720 

2730 

2740 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 


2920 


2930 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 


IF TABLE = 1 THEN PRINT Dtj'BLOAD TAVOLA/PROGRAttIA.A4 

sor 

REM -RESET FLAG ERRORE- 
POKE 216.0 

REM -RICEVE NUMERO DELLE FIGURE DELLA TAVOLA- 
SNUM = PEEK (2049):NN = 1 : HTAB 1 : VTAB 22: GOTO 360 
IF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 
HOME : VTAB 22: POKE 216,0 

IF PEEK (222) = 6 THEN PRINT 'LA TAVOLA NON E' SU QU 
ESTO DISCO.’: PRINT 'RIPROVA. (PREMI (RETURN» *j: G 
ET ZtiTABLE = NOT (TABLE): GOTO 340 
GOTO 900 

REM aaaaaa A2I0NE: TASTIERA/PADDLES aaaaaaa 

ACT = NOT (ACT) 

HTAB 1: VTAB 23: GOTO 370 

REM aaaaa SALVA LA FIGURA SUL DISCO aaaaaaaaaaaaa 

IF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 
HOME : VTAB 22: PRINT 'NOME DELLA FIGURA? '; 

LMT = 30: GOSUB 700 

IF U» = *' OR U4 = CHRt (27) THEN 340 
ONERR GOTO 2900 

VTAB 22: PRINT : PRINT Dtj'BSAVE ' ;W»:' ,At2000,LtlFFB' 
POKE 216,0: GOTO 340 
POKE 216,0: HOME : VTAB 22 

IF PEEK (222) = 11 THEN PRINT 'NOME DI FILE NON VALI 
DO.': PRINT 'RIPROVA. (PREMI (RETURN» ' ; : GET Zt: G 

erro 340 

IF PEEK (222) = 9 THEN PRINT 'NON C'E' ABBASTANZA SP 
AZIO NEL DISCO.': PRINT 'RIPROVA. (PREMI (RETURN» ' 
:: GET Zt: GOTO 340 
GOTO 900 

REM aaaaaa CARICA LA FIGURA DAL DISCO aaaaaaaaaa 

ÌF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 
HOME : VTAB 22: PRINT 'NOME DELLA FIGURA? ': 

LMT = 30: GOSUB 700 

IF Ut = " OR Ut = CHRt (27) THEN 340 


3460 

3470 

3480 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4090 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 


REM -TORNA ALLA GRAFICA- 
POKE - 16304,0 
GOTO 340 

REM aaaaaaa PRESENTAZIONE a*****#*»**»*»**»* 

TEXT : HOME 

VTAB 8: HTAB 12: PRINT 'aaa DESIGNER ***": VTAB 12: PR 
INT '(0 1985 BY APPLICANDO 4 MICROSPARC,INC." 

VTAB 20: PRINT ' VUOI LE ISTRUZIONI? ': 

GET Zi: IF Z* = 'S' THEN GOSUB 5000: GOTO 4090 
IF Zt ( > 'N' THEN 4060 
HOME : RETURN 

REM aaaaaa ISTRUZIONI «a*»»*****»***»**»» 

TEXT : HOME 

1IWERSE : PRINT ' aaa DESIGNER aaa 

':: NORMAL : PRINT 

PRINT ' CON QUESTO PROGRtftW PUOI DISEGNARE ’ 

PRINT 'FIGURE SULLO SCHERMO IN HI-RES, DA UT!- LIZZARE 
NELLE TAVOLE DELLE FIGURE.' 

PRINT ' C'E' MCHE UNA TAVOLA DELLE FIGURE' 

PRINT 'STANDARD CHIAMATA 'TAVOLA/PROGRAttIA'' 

PRINT 'COMPRENDENTE VARI DISEGNI CHE PUOI USARE' 

PRINT '.CONTROLLI PER IL DISEGNO.' 

PRINT 

PRINT ' D -DISEGNA FIGURA' 

PRINT ' X -CANCELLA FIGURA' 

PRINT ' R -AUMENTA ROTAZIONE' 

PRINT "CTRL-R -DIMINUISCE ROTAZIONE' 

PRINT ' S -AUMENTA SCALA' 

PRINT 'CTRL-S -DIMINUISCE SCALA' 

PRINT * C -CAMBIA COLORE’ 

PRINT 'aATTENZIONE" CTRL-C FERMA IL PROGRAttlA"; 

PRINT ' N -MOSTRA LA FIGURA SEGUENTE ' 

PRINT 'CTRL-N -MOSTRA LA FIGURA PRECEDENTE* 

PRINT ' (OPPURE BATTI IL NUMERO DELLA FIGURA)' 


Listato 2: TAVOLA/PROGRAMMA 


3080 

3090 

VTAB 22: PRINT : PRINT Dt;'BLOAD ' ;Ut,At2000' 

POKE 216,0: GOTO 340 

a801.FC5 
0801- 1C 

00 

3A 

00 

3C 

00 3F 


0940- 36 
0948- 36 

3E 

3E 

24 

24 

3C 

3C 

36 

36 

3E 

3E 

24 3C 
24 3C 

3100 

POKE 216,0: HOME : VTAB 22 

0808- 00 

45 

00 

74 

00 

C3 00 

65 

0950- 36 

3E 

24 

3C 

36 

36 

2D 35 

3110 

IF PEEK (222) = 11 THEN PRINT 'NOME DI FILE NON VALI 

0810- 01 

49 

02 

5E 

02 

80 02 

B4 

0958- 3F 

37 

2D 

35 

3F 

37 

2D 35 


DO.': PRINT 'RIPROVA. (PREMI (RETURN» ' : : GET Zi : G 

0818- 02 

FD 

02 

28 

03 

6C 03 

F7 

0960- 3F 

37 

2D 

35 

00 

01 

1B 1B 


OTO 340 

0820- 03 

D4 

04 

E3 

04 

03 05 

34 

0968- 18 

1B 

18 

18 

3F 

37 

?D 35 

3120 

IF PEEK (222) = 6 THEN PRINT 'LA FIGURA NON ESISTE S 

0828- 05 

76 

05 

88 

05 

Bt 05 

14 

0970- 3F 

37 

2D 

35 

3F 

37 

2D 35 


U QUESTO DISCO.*: PRINT 'RIPROVA. (PREMI (RETURN)) ' 

0830- 06 

8B 

06 

93 

06 

B1 06 

D4 

0978- 3F 

37 

2D 

35 

3F 

37 

2D 35 


:: GET 2$: GOTO 340 

Goto 900 

0838- 06 

38 

07 

05 

00 

3F 07 

00 

0980- 3F 

37 

2D 

35 

3F 

37 

2D 35 

3130 

0840- 33 

2D 

24 

3F 

06 

00 3F 

3F 

0988- 3F 

37 

?D 

7D 

24 

?C 

36 2E 

3200 

: 

0848- 2E 

2D 

35 

3F 

3F 

36 25 

35 

0990- 24 

2C 

36 

2E 

24 

2C 

36 ?F 

3210 

REM aaaaaa CARICA UN FILE DI VETTORI aaaaaaaaaaaaa 

0350- 25 

35 

25 

35 

25 

35 25 

3C 

0998- 24 

2C 

36 

2E 

24 

2C 

36 2E 

3220 

• 

0858- 3F 

27 

2D 

2D 

3C 

3F 27 

2D 

09AO- 24 

2C 

36 

2E 

24 

2C 

36 2E 

3230 

IF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 

0860- 2D 

3C 

3F 

27 

2D 

2D 3C 

3F 

09A8- 24 

2C 

36 

2E 

24 

2C 

36 ?F 

3240 

HOME : VTAB 22: PRINT 'NOME DEL FILE VETTORI? VETTORI/ 

0868- 3F 

3F 

3F 

2E 

2D 

35 3F 

3F 

0980- 24 

2C 

36 

2E 

24 

2C 

36 2E 


0870- 2E 

2D 

35 

00 

24 

18 1B 

3B 

09B8- 24 

2C 

36 

2E 

?D 

75 

3F 77 

3250 

LtVr = 22: GOSUB 700 

0878- 37 

2D 

3E 

3? 

2D 

3E 37 

36 

09C0- 2D 

25 

3F 

27 

2D 

25 

3F 77 

3260 

IF Ut = " OR Ut = CHRt (27) THEN 340 

0880- 25 

2C 

36 

25 

2C 

36 25 

2C 

09C8- 2D 

25 

3F 

27 

2D 

75 

3F 77 

3270 

ONERR GOTO 3340 

0888- 36 

25 

2C 

36 

25 

2C 36 

25 

09D0- 2D 

25 

3F 

27 

2D 

25 

3F 2? 

3280 

VTAB 22: PRINT : PRINT Dtj’BLOAD VETTORI/':Ut:',At805' 

0890- 2C 

36 

25 

2C 

36 

25 24 

3F 

09D8- 2D 

25 

3F 

27 

2D 

25 

3F 27 

3290 

POKE 216.0:TABLE = 2:SNUM = 1:W = 1 

0898- 2C 

25 

3F 

2C 

25 

3F 2C 

25 

09E0- 2D 

25 

3F 

lì 

2D 

25 

3F 27 

3300 

REM -POKE INTESTAZIONE PER LA TAVOLA - 

08AO- 3F 

2C 

25 

3F 

2C 

25 3C 

3E 

09E8- 2D 

25 

3F 

27 

2D 

25 

3F 27 

3310 

POKE 2049,1: POKE 2050,0 

08A8- 3C 

36 

lì 

3C 

36 

27 3C 

36 

09F0- 2D 

25 

24 

3C 

36 

3E 

24 3C 

3320 

POKE 2051,4: POKE 2052,0 

08BO- 27 

3C 

36 

27 

3C 

36 27 

3C 

09F8- 36 

3E 

24 

3C 

36 

3F 

24 3C 

3330 

GOTO 340 

08B8- 3F 

2E 

35 

3F 

2E 

35 3F 

2E 

0A00- 36 

3E 

24 

3C 

36 

3F 

24 3C 

3340 

POKE 216,0: HOME : VTAB 22 

08CO- 35 

3F 

06 

00 

1B 

1B 18 

18 

0A08- 36 

3E 

24 

3C 

36 

3E 

74 3C 

3350 

IF PEEK (222) = 11 THEN PRINT 'NOME DI FILE NON VALI 

08C8- 3F 

37 

2D 

35 

3F 

37 2D 

35 

0A10- 36 

3E 

24 

3C 

36 

3F 

74 3C 


DO.': PRINT 'RIPROVA. (PREMI (RETURN» GET Z$: G 

08DO- 3F 

37 

2D 

35 

3F 

37 2D 

35 

CAI8- 36 

3E 

24 

3C 

36 

3E 

74 3C 


OTO 340 

08D8- 3F 

37 

2D 

35 

3F 

37 2D 

2D 

0A20- 36 

3E 

24 

3C 

36 

3F 

24 3C 

3360 

IF PEEK (222) = 6 THEN PRINT 'IL FILE VETTORI NON ES 

08E0- 24 

2C 

36 

2E 

24 

2C 36 

2E 

0A28- 36 

3E 

24 

3C 

36 

3E 

24 3C 


ISTE SUL DISCO.': PRINT 'RIPROVA. (PREMI (RETURN» ' 

08E8- 24 

2C 

36 

2E 

24 

2C 36 

2L 

0A30- 36 

36 

2D 

35 

3F 

37 

2D 35 


:: GET Zi: GOTO 340 

Goto 900 

08F0- 24 

2C 

36 

2E 

24 

2C 36 

2fc 

0A38- 3F 

37 

?D 

35 

3F 

37 

2D 35 

3370 

08FS- 24 

2C 

36 

2E 

24 

2C 36 

2E 

0A40- 3F 

37 

20 

35 

3F 

37 

2D 35 

3400 

: 

0900- 2D 

25 

3F 

27 

2D 

25 3F 

27 

0A48- 00 

31 

1B 

IR 

36 

35 

35 2D 

3410 

REM aaaaaaa CATALOG aaaaaaaaaaaaaaaaaaa 

0908- 2D 

25 

3F 

27 

2D 

25 3F 

27 

0A50- 2D 

25 

25 

25 

24 

3C 

3C 3C 

3420 

J 

0910- 2D 

25 

3F 

27 

2D 

25 3F 

27 

0A58- 3F 

3F 

3E 

3E 

36 

00 

4E 1B 

3430 

IF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 

0918- 2D 

25 

3F 

27 

2D 

25 3F 

27 

OA60- 1B 

1B 

33 

?F 

36 

35 

35 2D 

3440 

TEXT : HOME : PRINT : PRINT Dt;'CATALOG' 

0920- 2D 

25 

3F 

27 

2D 

25 24 

3C 

0A68- 2E 

2D 

2D 

2C 

25 

25 

25 2C 

3450 

PRINT : PRINT ' (PREMI (RETURN) QUMDO HAI FINITO) ' 

0928- 36 

3E 

24 

3C 

36 

3E 24 

3C 

0A7D- 24 

24 

27 

3C 

3C 

3C 

27 3F 


;: GET ZI 

0930- 36 

3E 

24 

3C 

36 

3E 24 

3C 

0A78- 3F 

37 

3F 

3E 

3E 

36 

37 06 



0938- 36 

3L 

24 

3C 

36 

3E 24 

3C 

0A80- 00 

1B 

1B 

1B 
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16 
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5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 




PR1NT ’CTRL-E -COLORA L'INTERO SCHERNO" 

VTAB 24: PRINT ’ <'M' PER ALTRO, <ESC> PER TORNARE) 

GÈT 2$: IF li = CHR* (27) THEN 5660 
IF 2$ < ) "M" THEN 5250 


HOME : PRINT 
: PRINT 
PRINT " 

PRINT ' 

PRINT * 

PRINT 
PRINT 
PRINT 


-CONTROLLI SPOSTAMENTO- 


I 

J 

K 

M 

CTRL-I 


- CONTROLLO DA TASTIERA:PRINT 

- FIGURA IN SU DI UN DOT" 

- FIGURA A SINISTRA DI IN DOT" 

- FIGURA A DESTRA DI UN DOT" 

- FIGURA IN GIU' DI UN DOT" 

- FIGURA IN SU DI 8 DOT" 

PRINT ’CTRL-J - FIGURA A SINISTRA DI 8 DOT" 

PRINT ’CTRL-K - FIGURA A DESTRA DI 8 DOT" 

PRINT "CTRL-M - FIGURA IN GIU' DI 8 DOT": PRINT 
PRINT* - CONTROLLO CON LE PADDLE:": PRINT 

PRINT ’PDL(O) - SPOSTAMENTO IN 0RI220NTALE* 

PRINT 'PDL(l) - SPOSTAMENTO IN VERTICALE" 

PRINT "PULSANTE- DISEGNA LA FIGURA" 

VTAB 24: PRINT * <'M' PER ALTRO, <ESC> PER TORNARE) 
GET li : IF 2Ì = CHR* (27) THEN 5660 
IF li ( ) "M" THEN 5420 

HOME : PRINT ".-ALTRI CONTROLLI. 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


’ F -COLUTA FRA TUTTO SCHERMO E" 
SCHERMO MISTO" 

1 T -COrtlUTA FRA TAVOLA FIGURE PRO-" 

1 GRAftIA E TAVOLA FIGURE UTENTE" 

’CTRL-T -CARICA UN'ALTRA TAVOLA UTENTE" 

1 ' A -A2IONE: COMMUTA FRA CONTROLLO" 
PADDLE E CONTROLLO TASTIERA" 

P -SALVA SU DISCO LO SCHERMO HI-RES" 
1 G -CARICA UNA FIGURA DAL DISCO" 

1 V -CARICA UN FILE VETTORI AL POSTO" 
DELLA TAVOLA FIGURE IN USO* 
’CTRL-D -CATALOGO DEL DISCO" 

1 ? -VISUALI22A QUESTE ISTRUZIONI" 


5530 PRINT " (ESC) -FINE PROGRAMMA*: PRINT 
5590 PRINT * CIASCUNA DELLE FIGURE PUÒ' ESSERE* 

5600 PRINT "USATA COME 'PENNELLO' E SPOSTATA PER * 

5610 PRINT "RIEMPIRE UNA SUPERFICIE, 0 SOVRAPPOSTA" 

5620 PRINT "PER CREARE NUOVI SCHEMI ED EFFETTI.": PRINT 
5630 VTAB 24: PRINT "('R' PER RILEGGERE, (ESO PER TORNARE) 

5640 GEt li: IF li = "R* THEN 5030 
5650 IF 2t ( > CHR* (27) THEN 5640 
5660 HOME : RETURN 
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dell’integrato e i suoi piedini dovete 
aumentare la scala della figura pre¬ 
mendo il tasto S. Se tutto sembra a 
posto, premete il tasto D per disegna¬ 
re la figura. 

Adesso spostatevi sul lato destro 
dello schermo usando il tasto CTRL e 
il tasto K e disegnate il secondo inte¬ 
grato. 

Riducete la scala riportandola a uno 
con i tasti CTRL e S e scegliete la 
figura della resistenza sulla tavola del¬ 
le figure. Nel caso specifico la figura 
della resistenza è stata orientata in 
orizzontale, e quindi per usarla nel di¬ 
segno la si deve ruotare di 90 gradi. 
Premete il tasto R fino a che ROTA¬ 
ZIONE è uguale a 16. 

Adesso dovete muovere la figura 
mediante i quattro tasti di direzione e 
disegnare le varie resistenze. 

Se decidete di cambiare la posizione 
di una resistenza commutate il colore 
su NERO 1 (il colore di fondo) e dise¬ 
gnate di nuovo la figura, ottenendone 
così la cancellazione. Nel caso partico¬ 
lare, dato che stiamo lavorando in 
bianco e nero, potreste risolvere la si¬ 
tuazione anche con il semplice 
XDRAW della figura. 

Poi dovete aggiungere i condensato¬ 


ri, l’altoparlante e il simbolo di terra. 
Quindi collegate questi elementi usan¬ 
do la figura numero 1, la linea. E suffi¬ 
ciente utilizzare una linea molto corta 
di 3 dot e poi ingrandirla fino alla lun¬ 
ghezza necessaria. Dopo aver ruotato 
e posizionato la figura premete il tasto 
D per disegnare il collegamento. Que¬ 
sto lavoro può essere fatto anche dise¬ 
gnando più volte un tratto di linea cor¬ 
to, magari con un fattore di scala di 3 o 
4, con lo spostamento in una stessa 
direzione. 

Dopo che avrete disegnato le linee 
dovete indicare le connessioni metten¬ 
do in posizione il dot, figura numero 7, 
sui punti di congiunzione e disegnan¬ 
dolo. 

Infine dovrete mettere le iscrizioni 
sul disegno. Questo è possibile solo se 
si è creata una tavola delle figure con¬ 
tenente l’alfabeto. Dovrete soltanto 
battere CTRL-T e il nome della vo¬ 
stra tavola alfabetica che prenderà il 
posto della tavola di elettronica. Le 
iscrizioni andranno quindi inserite 
trattando le lettere e i numeri come 
normali figure grafiche da posizionare 
e disegnare secondo il vostro gusto e le 
vostre necessità. 

Per salvare il lavoro eseguito non 


dovrete fare altro che premere il tasto 
P che invierà al dischetto l’immagine 
presente sullo schermo con il nome 
che le assegnerete per poterla riutiliz¬ 
zare al bisogno. 

Caricamento 

Date le dimensioni del programma 
esso deve essere caricato sopra la pagi¬ 
na 1 dell’alta risoluzione. Questo vie¬ 
ne fatto nella prima linea del program¬ 
ma; si deve salvare il programma su 
dischetto con il nome DESIGNER. 
Vengono così riservati al programma 
circa 22K di memoria, meno quanto 
occorre per le stringhe e le variabili. 
Lo spazio al disotto dell a pagina 
Hi-Res è occupato da quella tavola 
delle figure che il programma sta usan¬ 
do. 

Battete il programma principale in 
Basic (Listato 1) e salvatelo con il no¬ 
me DESIGNER. Poi create la tavola 
delle figure denominata TAVOLA- 
/PROGRAMMA (Listato 2) che è 
usata dal programma principale. Essa 
rappresenta le illustrazioni della tavo¬ 
la che accompagna questo articolo (fi¬ 
gure da 1 a 22). Si può battere in me¬ 
moria il listato in esadecimale e poi 


Listato 3: 

TAVOI \ 

ELETTRONICA 


*9C5.EA6 


09C5- 

!D 

00 

3C 






09C8- 

00 

3F 

00 

62 

00 

8 A 

00 

AF 

0900- 

00 

09 

00 

09 

01 

3E 

01 

58 

0908- 

01 

77 

( { 

01 

92 

01 

86 

01 

F9 

09EO- 

01 

82 

02 

67 

02 

96 

02 

E6 

09E8- 

02 

0E 

03 

57 

03 

78 

03 

90 

09FO- 

03 

D8 

03 

10 

08 

3C 

08 

56 

09F8- 

08 

6 F 

08 

87 

08 

8 E 

08 

98 

OAOO- 

08 

3F 

07 

00 

28 

28 

28 

28 

0A08- 

28 

28 

20 

20 

2 D 

2 D 

2 D 

20 

0A10- 

2D 

20 

2E 

35 

35 

35 

2E 

36 

0A18- 

37 

3E 

3E 

3E 

37 

3F 

3F 

3F 

0A20- 

3F 

3F 

3F 

3F 

3F 

00 

28 

28 

0A28- 

28 

28 

28 

28 

28 

2 D 

2 D 

20 

QA30- 

2 D 

20 

2 D 

20 

2 D 

2E 

35 

35 

0A38- 

35 

2E 

OD 

20 

36 

3F 

3C 

33 

0A4O- 

37 

3E 

3E 

3E 

37 

3F 

3F 

3F 

0A48- 

3F 

3F 

3F 

3F 

3F 

00 

3C 

2C 

0A50- 

28 

20 

28 

28 

27 

28 

27 

2 D 

0A58- 

2 D 

20 

20 

2 D 

2 D 

2 D 

20 

2E 

0AÓ0- 

35 

35 

35 

2E 

36 

37 

3E 

3E 

0A68- 

3E 

37 

3F 

3F 

3F 

3F 

3F 

3F 

0A70- 

3F 

3F 

00 

27 

2C 

28 

2C 

28 

0A78- 

28 

27 

28 

27 

20 

20 

20 

2 D 

0A80- 

20 

20 

20 

20 

2E 

35 

35 

35 

0A88- 

2E 

OD 

2 D 

36 

3F 

3C 

33 

37 

0A90- 

3E 

3E 

3E 

37 

3F 

3F 

3F 

3F 

0A98- 

3F 

3F 

3F 

3F 

00 

27 

18 

23 

OAAO- 

OC 

28 

OC 

28 

1C 

28 

1C 

2C 

0AA8- 

09 

2E 

36 

2E 

36 

36 

37 

36 

OABO- 

37 

20 

20 

20 

20 

2 D 

20 

20 

0AB8- 

20 

2C 

25 

25 

25 

2C 

28 

27 

0AC0- 

3C 

3C 

3C 

27 

3F 

3F 

3F 

3F 

0AC8- 

3F 

3F 

3F 

3F 

00 

3F 

1 B 

23 


0AD0- 

OC 

28 

OC 

28 

1C 

28 

1C 

2C 

0AD8- 

09 

2E 

36 

2E 

36 

36 

37 

36 

0AE0- 

37 

2 D 

20 

2 D 

20 

20 

20 

2 D 

0AE8- 

20 

2C 

25 

25 

25 

2C 

OD 

20 

0AF0- 

28 

3F 

3E 

23 

27 

3C 

3C 

3C 

0AF8- 

27 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

0800- 

3F 

00 

3F 

28 

28 

28 

28 

28 

0B08- 

28 

35 

20 

2E 

35 

20 

2E 

35 

OB10- 

20 

2E 

17 

3F 

3E 

37 

3F 

3E 

0B18- 

37 

3F 

3E 

00 

37 

28 

28 

28 

0 B20- 

28 

28 

28 

35 

20 

2E 

35 

20 

0B28- 

2E 

35 

20 

2E 

00 

2C 

35 

3E 

0B30- 

3F 

18 

3F 

3E 

37 

3F 

3E 

37 

0838- 

3F 

3E 

00 

3F 

28 

28 

28 

28 

0B80- 

28 

28 

20 

20 

20 

20 

2 D 

20 

0888- 

35 

36 

36 

36 

36 

36 

3E 

3F 

0B5Q- 

3F 

3F 

3F 

3F 

3F 

00 

37 

28 

0B58- 

28 

28 

28 

28 

28 

2 D 

2 D 

20 

0B60- 

20 

20 

20 

20 

20 

2 D 

2 D 

2 D 

0 B68- 

36 

36 

36 

36 

36 

36 

3F 

3F 

0870- 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

0B78- 

3F 

00 

3F 

28 

2C 

28 

25 

25 

0B80- 

2 D 

2C 

2 D 

20 

2 D 

35 

20 

2E 

0 B88- 

2E 

36 

35 

36 

36 

36 

3E 

36 

0B9O- 

37 

37 

3F 

3E 

3F 

3F 

3F 

27 

0B98- 

3F 

3C 

3C 

28 

27 

28 

2C 

20 

08A0- 

20 

20 

25 

28 

28 

05 

08 

08 

0BA8- 

09 

39 

3A 

3A 

3A 

3A 

32 

1A 

OBBO- 

32 

36 

36 

09 

20 

25 

27 

28 

0888- 

21 

1F 

23 

3B 

00 

38 

28 

2C 

OBCO- 

28 

25 

25 

20 

2 C 

2 D 

2 D 

2 D 

0BC8- 

35 

20 

2E 

2E 

36 

35 

36 

36 

OBDO- 

36 

3E 

36 

37 

37 

3F 

3E 

3F 

OBD0- 

3F 

3F 

27 

3F 

3C 

3C 

28 

27 

0BE0- 

28 

2C 

2 D 

2 D 

20 

28 

28 

28 

0BE8- 

08 

09 

09 

09 

17 

1F 

33 

00 

0BF0- 

1E 

37 

20 

35 

1 B 

IB 

1E 

1E 

0BF8- 

32 

36 

36 

0A 

09 

09 

09 

1C 

ocoo- 

1C 

1C 

1C 

1C 

1C 

08 

00 

20 

0C08- 

28 

28 

35 

36 

36 

37 

36 

25 

0C10- 

2C 

2E 

2C 

25 

3F 

27 

28 

2C 


0C18- 

36 

2E 

28 

35 

26 

31 

2E 

28 

OC20- 

08 

08 

08 

36 

3E 

2A 

20 

1F 

0C28- 

32 

36 

08 

00 

2D 

28 

28 

35 

0C30- 

36 

36 

37 

36 

25 

2C 

2E 

2C 

0C38- 

25 

3F 

27 

28 

2C 

36 

2E 

28 

0C80- 

35 

26 

31 

2E 

28 

00 

28 

3C 

0C48- 

3C 

3C 

00 

12 

12 

12 

0E 

12 

0C50- 

0A 

0A 

0A 

27 

27 

27 

28 

2C 

0C58- 

20 

00 

3C 

2C 

28 

25 

25 

20 

0C60- 

2C 

20 

20 

00 

09 

09 

OC 

OD 

0C68- 

21 

1F 

OC 

25 

3F 

3F 

18 

23 

0C70- 

28 

3F 

37 

09 

1E 

1E 

1E 

15 

0C78- 

12 

2A 

35 

35 

35 

2E 

36 

36 

OC80- 

37 

3E 

3E 

3E 

37 

3F 

3F 

27 

0C88- 

3F 

3C 

3C 

28 

27 

2C 

20 

25 

0C90- 

28 

35 

36 

3E 

36 

25 

25 

28 

0C98- 

2C 

36 

36 

OC 

28 

35 

26 

21 

0CA0- 

21 

38 

12 

26 

29 

3D 

1B 

12 

0CA8- 

26 

00 

25 

20 

28 

25 

0E 

36 

OCB0- 

35 

2E 

22 

25 

2C 

28 

25 

0E 

0CB8- 

36 

35 

2E 

22 

25 

2C 

28 

25 

occo- 

0E 

36 

35 

2E 

22 

25 

2C 

28 

0CC8- 

25 

0E 

36 

35 

2E 

22 

25 

2C 

ocoo- 

2D 

00 

35 

2D 

28 

25 

0E 

36 

0CD8- 

35 

2E 

22 

25 

2C 

24 

25 

0E 

0CE0- 

36 

35 

2E 

36 

0A 

3E 

36 

37 

0CE8- 

OD 

09 

3C 

28 

17 

36 

36 

2E 

0CF0- 

20 

20 

20 

2D 

20 

2D 

2D 

25 

0CF8- 

28 

28 

28 

28 

28 

OC 

09 

3F 

0D00- 

22 

3C 

36 

23 

38 

3B 

37 

3E 

0D08- 

26 

23 

3C 

28 

27 

1E 

36 

37 

0010- 

3E 

22 

27 

3C 

28 

27 

1E 

36 

0018- 

37 

3E 

00 

26 

20 

28 

28 

35 

0D20- 

36 

36 

37 

35 

37 

20 

28 

28 

0028- 

28 

28 

OD 

31 

36 

36 

36 

2E 

0D30- 

28 

28 

28 

28 

35 

36 

2E 

30 

0D38- 

13 

36 

26 

00 

29 

20 

28 

28 

0D80- 

35 

36 

36 

37 

35 

37 

20 

28 

0088- 

28 

28 

28 

00 

31 

36 

36 

36 

0D50- 

2E 

25 

28 

2C 

25 

1B 

28 

3C 

0058- 

OC 

09 

2D 

28 

16 

29 

1F 

32 


0060- 

06 

00 

20 

28 

28 

35 

36 

36 

0068- 

37 

35 

37 

2 D 

28 

28 

28 

28 

QD70- 

00 

31 

36 

36 

36 

2E 

28 

28 

0078- 

28 

28 

35 

36 

2E 

30 

13 

36 

0080- 

36 

0A 

09 

21 

23 

23 

23 

03 

0088- 

18 

03 

18 

1C 

1C 

18 

18 

23 

0090- 

3B 

1 B 

2C 

21 

3B 

2C 

20 

05 

0D98- 

00 

28 

2C 

28 

25 

25 

20 

2C 

ODAO- 

20 

20 

2 D 

35 

20 

2E 

2E 

36 

0DA8- 

35 

36 

36 

36 

3E 

36 

37 

37 

ODB0- 

3F 

3E 

3F 

3F 

3F 

27 

3F 

3C 

0 DB8- 

3C 

24 

27 

28 

2C 

20 

28 

2C 

0DCO- 

36 

36 

37 

2E 

2C 

28 

28 

15 

QDC8- 

36 

05 

28 

25 

28 

28 

16 

12 

0000 - 

12 

36 

36 

16 

09 

09 

28 

28 

0008- 

3F 

27 

18 

08 

2 D 

2 D 

20 

20 

0DE0- 

00 

00 

20 

2E 

25 

3C 

37 

09 

0DE8- 

29 

25 

25 

2C 

2C 

35 

35 

2E 

0DF0- 

36 

35 

2E 

2E 

25 

25 

2C 

2C 

0DF8- 

25 

2 D 

36 

3F 

OC 

09 

2 D 

00 

0E00- 

2 D 

2 D 

2E 

25 

3C 

27 

08 

28 

0E08- 

2 D 

2 D 

28 

28 

35 

36 

2E 

20 

OE10- 

20 

1E 

12 

36 

20 

24 

37 

09 

0E18- 

2 D 

00 

17 

2 D 

2C 

35 

3E 

2F 

0E20- 

12 

20 

20 

25 

28 

28 

35 

36 

0E28- 

36 

2 D 

2 D 

25 

01 

38 

27 

2C 

0E30- 

35 

20 

05 

00 

2 D 

2C 

35 

3E 

QE38- 

27 

01 

08 

08 

20 

2C 

25 

20 

0E80- 

2C 

35 

11 

12 

36 

2 D 

28 

37 

0E88- 

09 

20 

00 

3C 

20 

2C 

35 

3E 

0E50- 

27 

00 

08 

20 

2 D 

09 

2 D 

20 

0E58- 

09 

20 

2 D 

09 

20 

20 

00 

2C 

0E6O- 

20 

12 

12 

12 

28 

28 

28 

28 

0E68- 

28 

28 

1F 

23 

3C 

2F 

01 

20 

0E7O- 

0E 

2A 

00 

09 

12 

12 

32 

36 

0E78- 

36 

2E 

28 

28 

28 

05 

08 

08 

OE80- 

30 

36 

36 

36 

36 

12 

22 

28 

0E88- 

00 

21 

28 

28 

2C 

36 

36 

36 

0E90- 

16 

0A 

09 

28 

28 

28 

28 

28 

0E98- 

28 

00 

11 

12 

36 

36 

36 

25 

0EA0- 

28 

28 

2C 

12 

2A 

05 

00 
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salvarlo su dischetto con il comando: 


BSAVE TAVOLA/PROGRAM¬ 
MA, A$801,L$7C5 


Modifiche possibili 

La modifica più utile che si possa 
apportare a DESIGNER è l’aggiunta 
di una routine di dump sulla stampan¬ 
te per lo schermo Hi-Res. Ci sono 
due linee vuote, i numeri 1320 e 1330, 
nelle quali si possono aggiungere salti 
a nuove funzioni. Lo schema elettroni¬ 
co visibile all’inizio dell’articolo è sta¬ 
to realizzato usando una Centronics 
139 in combinazione con un’interfac¬ 
cia Data SAK con routine di dump 
incorporate. 

Una modifica che abbiamo già pro¬ 
vato consiste nell’aggiunta di una fun¬ 
zione "Diminuire il numero del colore" 
attivata da CTRL—C per conservare 
la coerenza con i controlli di scala, 
rotazione e numero della figura. Ab¬ 
biamo predisposto una routine gene¬ 
rale di ONERR GOTO che intrappo¬ 
lava l’interruzione di CTRL-C e cam¬ 
biava opportunamente il colore, ma 
qualche volta l’interruzione avveniva 
prima che venisse cancellata la figura 
lampeggiante. Così rimaneva sullo 
schermo un’immagine fantasma. Que¬ 
sta difficoltà potrebbe essere superata 
con un ulteriore sforzo di programma¬ 
zione, ma dato che ci sono soltanto sei 
colori con cui lavorare non si tratta di 
un grande problema. 

Chi vuole cimentarsi con il linguag¬ 
gio macchina può provare a inventare 
una routine che inverta i colori dello 
schermo Hi—Res, o addirittura a una 
routine di riempimento con il colore. 


DESIGNER 

personalizzati 

Invece di limitarvi a modificare DE¬ 
SIGNER, potreste utilizzare le sue 
routine per formare la base di una gran 
varietà di programmi di design più 
specializzati; per esempio un pro¬ 
gramma per la progettazione degli in¬ 
terni di uffici. Si devono soltanto sal¬ 
vare su dischetto i profili costruttivi di 
base che raffigurano i muri, le colon¬ 
ne, le finestre, i condotti per rimpian¬ 
to elettrico e via dicendo. In occasione 
della progettazione di una specifica 
area questo profilo di base potrebbe 
essere caricato dal dischetto sisteman¬ 
do poi le tramezze, le porte e il mobilio 



per completare il progetto. 

Con una simile versione di DESI¬ 
GNER si potrebbe perfino controllare 
se un determinato mobile o macchina¬ 
rio passa attraverso una porta, spo¬ 
stando la sua figura sulla pianta lungo 
quel tragitto. Creando questa specie di 
applicazione specializzata potreste 
persino migliorare la scelta delle figu¬ 
re allestendo un menù delle figure di¬ 
sponibili. 

Questo non si può fare con il DESI¬ 
GNER com’è, in quanto si ignorano 
lunghezza e contenuto della tavola 
delle figure dell’utente. 

Ma le modifiche che potete apporta¬ 
re a DESIGNER secondo le vostre 
esigenze non riguardano solo la spe¬ 
cializzazione delle figure: potete an¬ 
che modificare i comandi secondo le 
vostre esigenze, per esempio permet¬ 
tendo soltanto incrementi di rotazione 
di 45 gradi. 

Per andare in direzione compieta- 
mente opposta, che ne pensate di un 
programma per i bambini che permet¬ 
ta loro di creare mostri? La tavola del¬ 
le figure comprenderebbe diversi tipi 
di teste, gambe, corpi, code, ali e così 
via. Potrebbero essere messi assieme a 
volontà. Si potrebbero perfino inclu¬ 
dere nel programma parole raffigu¬ 
ranti effetti sonori, tipo quelle dei fu¬ 
metti, da aggiungere all’immagine de¬ 
finitiva. 

L’aspetto importante del Computer 
Aided Design che non viene affronta¬ 
to in questo programma è l’analisi del¬ 
la progettazione mentre viene fatta. 
Essa può andare dai calcoli di superfi¬ 
cie e di costo per i progettisti di imbal¬ 
laggi alla simulazione dei circuiti elet¬ 
tronici all’analisi delle sollecitazioni. 
Tutti questi tipi di caratteristiche po¬ 
trebbero essere aggiunti da voi stessi 
per creare programmi di design più 
specializzati. 

DESIGNER è uno strumento di 
progettazione di impiego veramente 
generale che può farvi toccare con ma¬ 
no la grande versatilità e comodità del 
vostro Apple anche nei lavori più crea¬ 
tivi. 

Non bisogna infatti dimenticare 
che, insieme alle applicazioni più utili 
professionalmente, DESIGNER è an¬ 
che una sorta di penna magica con cui 
potete realizzare i più fantasiosi ghiri¬ 
gori che vi solleticano l’immaginazio¬ 
ne e il senso estetico! 


Questo programma è disponibile su 
dischetto. L'elenco, i prezzi e le 
modalità d'ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

-y 
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flÉ NEW "APPLE 


SCHEDE PER ACQUISIZIONI ANALOGICHE 


Mod.: XAD-1 • n. catalogo: 060160 
A / D con verter 12 bit con orologio e 4 reed relays • Sezione A / D conver- 
ter 4 canali con multiplexer analogico guadagno fisso range 0-5 V uni¬ 
polari. • Stabilità di conversione = 50 ppm / C. • Tempo di conversione 
10 millisecondi per canale. - Non linearità + / — 0.1% fondo scala. - Pro¬ 
tezione input fino a + 50 V. Tecnica di conversione: integrazione. 

Mod.: XAD-2 - n. catalogo: 060161 
A / 0 converter 12 bit con ingressi a guadagno variabile, ingressi a gua¬ 
dagno fisso e 2 reed relays. • Sezione A / 0 converter 3 canali con multi¬ 
plexer analogico con guadagno fisso 0-5 V unipolari. 2 canali con 
multiplexer analogico ingressi differenziali con guadagno variabile pro¬ 
grammabile da un range di 0-10 mV ad un range di 0-2.5 V fondo scala 
in step di ragione 2 da 1 a 128. 

Mod.: 11 04 - n. catalogo: 060162 

A / D converter 12 bit high-speed con ingressi differenziali a guadagno 
variabile. Numero canali: 6 - Ingressi: completamente diffrenziali da + / — 
0-10 mV a + / — 10 V. • Risoluzione: 12 bit • Tempo di conversione: 25 
microsecondi a 12 bit, 15 microsecondi a 8 bit • Guadagno: programma- 
bile in step binari da 1 a 128. 



Mod.: A/ D DI A 12 bit • n. catalogo: 060163 
A / D converter 16 canali 12 bit veloce con D / A converter veloce 12 bit. 
Sezione A / D converter - Numero canali: 16 • ingressi: unipolari • Tensio¬ 
ne di ingresso: 0-9 V a guadagno fisso • Tempo di conversione: 60 mi¬ 
crosecondi / canale • Sezione D / A converter: 1 canale di uscita • Livello 
di uscita: regolabile da 0-4.5 V a 0-9 V tramite trimmer multigiri • Polari¬ 
tà: unipolare o bipolare tramite jumper on-board. Settling time tipico: 1 
microsecondo. 


Mod.: A/D converter 16 canali 8 bit • n. catalogo:060165 
A / D converter veloce ed economico • Canali: 16 unipolari a guadagno 
fisso • Tensione ingresso: 0-5 V • Tempo di conversione: 100 microse¬ 
condi / canale. 

Mod.: A/ A DI A 8 bit • n. catalogo: 060166 
A / D converter 16 canali 8 bit con D / A converter 1 canale 8 bit • Sezione 
A / D converter: • Risoluzione: 8 bit • Numero canali: 16 • Ingressi: unipo¬ 
lari a guadagno fisso - Sensibilità ingressi: 0-5 V • Tempo di conversio¬ 
ne: 100 microsencondi / canale • Sezione D / A converter Numero canali: 
1. Risoluzione: 8 bit • Output: unipolare, 0-5 V • Tempo di conversione: 
1 microsecondo. 

Mod.: D/A converter 8/16 bit con output TTL • n. ca¬ 
talogo: 060164 

D / A converter 8 bit 2 canali con possibilità di miscelazione tensioni out¬ 
put e 2 canali output a livello TTL - Sezione 0 / A converter • Risoluzio¬ 
ne: 8 o 16 bit • Numero canali: 2 a 8 bit o 1 a 16 bit - Tensione uscita: 
0-10 V floating, regolabile con trimmers multigiri • Settling time: 1 mi¬ 
crosecondo - Commutazione canali: via software, tramite multiplexer ana¬ 
logico - Sezione TTL pori: Numero porte: 2 • Output: livello TTL 
compatibile, sink 20 mA, totem-pole. 


Parallel Port Interface • n. catalogo 050121 
L'interfaccia PARALLEL PORT è una scheda di interfaccia parallela ge¬ 
neralizzata con capacità di servire sino a 24 porte I / 0. 

Essa sfrutta le doti di programmabilità dell’8255 INTEL lasciando all’uti- 
lizzatore la specializzazione delle porte I/O. 


A/D D/A CONVERTER PER IBM PC compatibile. 


Mod.: A/D D/A converter 12 bit - n. catalogo: 095163. 

A / D D / A converter 12 bit 16 canali con D / A converter 12 bit singolo 
canale • Sezione A / D converter • Risoluzione: 12 bit (4096 punti) • Nu¬ 
mero canali: 16 con multiplexer analogico • Velocità conversione: 25 mi¬ 
crosecondi I canale - Ingressi: unipolari a guadagno fisso • Tensione 
ingressi: 0-9 V aggiustabile con trimmer multigiri • Sezione D / A conver¬ 
ter. • Risoluzione: 12 bit (4096 punti) - Tensione uscita: 0-9 V aggiustabi¬ 
le con trimmer multigiri - Modo uscita: unipolare o bipolare (selezionabile 
con jumper) - La schedina è dotata di connettore I / 0 tipo CANNON DB25 
femmina, e viene fornita con manuale operatore in lingua inglese e di¬ 
schetto dimostrativo. 

RICHIEDETE CATALOGO: 

OLTRE 90 PRODOTTI PER APPLE E IBM 

HI [11^0=1 TELECOMUNICAZIONI 

TORINO - VIA ORMEA, 99 • TEL. Oli 1 655.865 
CONDIZIONI PARTICOLARI PER DEALER E HOBBISTI 
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Scrivere un programma compiuto in una sola linea? 

È possibile, e appassionante. 

Eccoli, a puntate, oppure tutti insieme su dischetto. 


Cento programmi 
di una linea sola 


N egli Stati Uniti li chiamano 
One-liners e sono persino og¬ 
getto di gare di bravura appassionanti: 
non è facile impacchettare in una sola 
linea un numero di istruzioni sufficien¬ 
te a farne un vero programma, valido 
anche se brevissimo. Per scriverli (e 
anche per trascriverli) occorre tener 
presente qualche piccolo trucco: non si 
devono battere gli spazi, salvo quelli 
compresi fra le virgolette (") e invece 
dell’istruzione PRINT occorre battere 
il punto interrogativo (?). Chi volesse 
produrne di suoi, inoltre, ricordi di 
evitare l’istruzione IF, che normal¬ 
mente fa saltare alla linea successiva se 
la condizione posta non risulta vera, 
ignorando il resto della riga, quando 
negli One—liners di riga deve esserce¬ 
ne una soltanto, per definizione. Uni¬ 
ca eccezione ammessa: una seconda 
riga di REM per ricordarsi di che 
One—liner si tratta. 

La loro brevissima lunghezza non 
deve però trarre in inganno: non sono 
dei giochini. Costringendo a una sinte¬ 
si estrema rappresentano un formida¬ 
bile esercizio di programmazione, e 
molto spesso nascondono delle routi¬ 
ne di grande interesse. Nulla impedi¬ 
sce naturalmente di utilizzare queste 
routine all’interno di altri programmi, 
o di costruire programmi ad hoc som¬ 
mando e modificando adeguatamente 
più One—liners. Applicando ne ha 
raccolti cento, e ne inizia la pubblica¬ 
zione da questo numero. Chi li volesse 
tutti e cento insieme, senza digitarli, 
può richiedere il dischetto compilando 
il tagliando del Disk Service (vedere le 
modalità a pagina 128). 

Il primo One—liner di Applicando è 
un programma di tipo HELLO: salva¬ 
to appunto come Hello, mostra il cata¬ 
logo del dischetto, indica la quantità di 
memoria libera, chiede il programma 
in Basic che si desidera far girare, e lo 
avvia. 


Listato 1 


10 HOME : IMMERSE : PRINT * 1 . 

-0NE-L1NER MENU- 

.NORNAL : PRINT ‘8 

YTES LIBERI *: FRE (0) + 655 
36.: PRINT , UÒL=254* : POKE 3 
4.2: PRINT CHI» <4)‘CATAL0G 
INPUT ‘QUALE PROGRAM»? ‘ 
:AJ: TEXT : PRINT CHI» (4)* 
SUN ‘;A4 


Il secondo è una routine che potrà 
certamente far comodo: scrive tutto 
ciò che arriva dalla tastiera mantenen¬ 
dolo centrato in mezzo allo schermo. 
Battendo Return si passa alla seconda 
riga, sempre centrata, e così via. 


Listato 2 


1 PRINT :Bt = FOR A = 1 TO 2 
: GET A$:E» = B4 + A$:L = LEN 
(Bi); 0N (A» = CHI» (13)) OR 
(L = 38) GOTO 1: CALL - 998 
: HTAB INI ((40 - L) / 2): PRINT 
B$:A = A - 1: NEXT 


Spesso però gli One—liners sono 
programmini di grafica: eccone uno 
dagli effetti di caleidoscopio. Occorre 
qualche secondo di pazienza prima 
dell’ inizio dello spettacolo. 


Listato 3 


1 T = 2:A = 140:B = 95: HGR2 :N = 

80 :C = A :D = 94: HC0L0R= 4:M 
= 130: FOR K = ! T0 !00:X = 

INT < RND <1) * M + A) :Y = 

Ufi ( RND (1) * N ♦ B): FOR 

1 = 1 TO N STEP T:X = X - T: 

Y = Y - T:E = T * B - Y:F = 

T » A - X: HPLOT C,D TO X.Y: 
HPLOT G,D TO F.Y: HPLOT è.H 
TO F.E: HPLOT C,H TO X.E: NEXT 
: HCOL0R= 7 * RND <1>:C = X 
:D = Y:H = E:G = F: NEXT 


Quello che segue è una routine che 
dimostra un modo interessante di far 
lampeggiare del testo sullo schermo 


senza usare apparentemente la funzio¬ 
ne FLASH. 



Tutti sanno che l’Apple // può pro¬ 
durre musica. Questa routine dimo¬ 
stra quanto può essere facile otte¬ 
nerla. 



Ecco un’altra fantasmagoria grafica 
racchiusa in pochissime istruzioni. 



Per la categoria utility, ecco una bel¬ 
lissima routine per la conversione dei 
numeri di base decimale in esadecima- 
le, in binario, eccetera, e viceversa. 
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Sei proprio sicuro che il tuo computer 
sia sempre al sicuro? 

Siete certi di aver messo al riparo il vostro computer dai più comuni rìschi 
e incidenti che possono capitargli? Rispondete sinceramente 
a queste 7 domande, sia che abbiate già sottoscritto una polizza assicurativa, 

sia che ancora non l’abbiate fatto. 







Ancia te al mare, in montagna, a casa di un 
amico e vi fermate lungo il tragitto per una 
commissione, un ladro vi ruba il computer dal 
portabagagli. Pagate voi? □ Sì □ No 



Partite per una vacanza e decidete di portare 
con voi il vostro personal. Andate in 
albergo, in una casa in affitto o nella villa 
di vostro fratello, e succede qualcosa al vostro 
computer. Pagate voi? a Si a No 




Siete nel bel mezzo di un applicazione 
complicata. Non volete interrompervi ma 
nemmeno rinunciare a un whisky on thè rocks 
o al caffè. Ahlme.il liquido finisce sulla 
tastiera mandando in cortocircuito il 
computer. Pagate voi?a sio No 



vostro figlio sì avvicina a! computer senza 
essere visto e comincia a picchiarci sopra con 
un oggetto più duro del vostro computer, 
pagate voi?n sia No 




Se un corto circuito o uno sbalzo di tensione 
danneggia il computer, pagate voi? a Sio No 


Se qualche vostro amico o una vostra 
impiegata si fa male maneggiando il vostro 
personal, pagate voi? □ Sì □ No 


RISPOSTE 

7 No. il vostro computer è davvero al sicu¬ 
ro. Bravi. 

6 No e 1 SI. Valutate bene se II caso In cui 
avete risposto sì ha scarse possibilità di 
verificarsi. Potrebbe valere la pena di ri¬ 
schiare e di lasciare le cose come stanno. 
Da 2 a 7 SI. Affrettatevi a leggere II box qui 
sotto, perché II vostro computer non è 
affatto al sicuro, Il che potrebbe causarvi 
un sacco di fastidi e farvi perdere un muc¬ 
chio di soldi. 


&A& e applicando 

vi mettono al sicuro 

Sicuramente sarete convinti che esista già fla tempo una 
polizza per assicurare il personal computer. Non e cosi 
Finora tutte le compagnie di assicurazione hanno creato 
polizze nate per garantire I grossi centri di elaborazione 
dati, e solo In seguito hanno adattato queste polizze alle 
esigenze di coloro che vogliono assicurare II proprio perso¬ 
nal. Ma una polizza adattata non può certo paragonarsi a 
una polizza nata apposta per soddisfare le esigenze del 
possessore di un personal computer. Applicando, in colla¬ 
borazione con la Ras una delle più Importanti compagnie di 
assicurazioni Italiane, ha studiato a fondo li problema E 
nata cosi la Polizza Applicando, la prima e. per il momento, 
unica assicurazione che copra tutti l rischi relativi al posses¬ 
so e all'uso di un personal e delie sue periferiche (stampan¬ 
ti, drive, video,ecc). Applicando è orgogliosa di presentarla 
In anteprima ai suol lettori e di offrire loro la possibilità di 
sottoscriverla nella maniera più semplice. Basta leggere 
attentamente le condizioni pubblicate alla pagina seguen¬ 
te. compilare II tagliando e spedino a Edltronlca srl, Polizza 
Applicando. Corso Monforte 39, 20122 Milano. Avrete cosi 
risolto, per sempre, tutti l vostri problemi. 



































Condizioni generali di assicurazione. 


1) Premessa 

a) l'adesione alla presente polizza è riservata ai proprie¬ 
tari di un Personal Computer il cui valore stabilito 
come alla Condizione 6) sia superiore a L 2.500.000 
IVA compresa; 

b) l'adesione alla presente polizza da parte dei proprie¬ 
tari di personal Computer avverrà a mezzo invio di 
apposita cartolina con il relativo importo di premio; 

c) l'intestatario della cartolina sarà considerato a tutti gli 
effetti come l'Assicurato; 

d) la garanzia sarà operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante dal timbro posta¬ 
le. La copertura avrà durata un anno, sempreché la 
data di inizio della garanzia sia compresa nel periodo 
di validità della convenzione; 

GARANZIE PRESTATE E CONDIZIONI DI 
ASSICURAZIONE 

2) Sez. I - Danni materiali 

Derivanti da: 

a) incendio, opera di spegnimento e salvataggio, fulmi¬ 
ne. esplosione, scoppio, implosione; 

b) acqua e liquidi in genere, inondazione, alluvione, 
trombe, uragani, gelo, ghiaccio, neve, grandine, va¬ 
langa. caduta di massi e altri simili eventi; 

c) superamento del muro del suono, caduta di aeromo¬ 
bili o cose da essi trasportate; 

d) corto circuito, variazione di corrente, sovratensione 
arco voltaico, deficienze di isolamento, effetti di elet¬ 
tricità statica, induzione; 

e) imperizia, negligenza, errata manovra, nonché azioni 
dolose e colpose in genere; 

f) trasporti e smontaggi connessi con lavori di pulizia o 
di manutenzione; 

g) furto e rapina; 

h) terremoto, maremoto od eruzioni vulcaniche; 

i) persone che prendono parte a tumulti popolari, scio¬ 
peri, sommosse e che perpetrino indivudualmente od 
in associazione atti di terrorismo o sabotaggio verifi¬ 
catisi in occasioni di serrate. 

3) Sez. Il - Responsabilità Civile Terzi 

L’assiGurazione si intende inoltre prestata per la Respon¬ 
sabilità Civile derivante all'Assicurato dalla proprietà e 

dall'uso personale del Computer assicurato identificato 

nel certificato di assicurazione. 

I massimali di garanzia si intendono fissati in: 


L. 100.000.000 per sinistro con il limite di 

L. 100.000.000 per ciascuna persona deceduta o che 
abbia subito lesioni personali 

L. 100.000.000 per danni a cose e/o animali. 

4) Esclusioni 

La Società non è obbligata per i danni dovuti a 

- dolo dell'Assicurato; 

- corrosione, deperimento, logoramento che siano con¬ 
seguenza del normale uso o funzionamento o causati 
dagli effetti graduali degli agenti atmosferici; 

- per i quali deve rispondere il fornitore, venditore o loca¬ 
tore degli enti assicurati per legge o per contratto, o per 
inadeguata manutenzione: 

- causati da difetti di materiale o di costruzione che esi¬ 
stevano già all'atto della stipulazione della polizza ed 
erano a conoscenza dell'Assicurato; 

- causati direttamente od indirettamente da avvenimenti 
bellici, sommosse militari, invasioni, adozione di misure 
da parte di potenze straniere, rivoluzione, ribellione, 
insurrezione, assunzione od usurpazione di potere di 
carattere militare, sequestri; 

- verificatisi in occasione di esplosione, radiazione nu¬ 
cleare o di contaminazione radioattiva; 

- uso improprio del bene (mancato rispetto delle norme 
di impiego dettate dal costruttore); 

- danni estetici (quelli interessanti l'involucro esterno che 
non sia conseguenza di un danno risarcibile a termine 
della presente polizza); 

- guasti casualmente riconducibili ad interventi, a ripara¬ 
zioni e/o modifiche effettuate da un centro non autoriz¬ 
zato dalla casa costruttrice della macchina; 

- danni indiretti in genere. 

5) Operatività della garanzia 

a) La garanzia è operante solamente se gli enti assicurati 
sono ubicati presso il domicilio dell’Assicurato od in 
luoghi diversi da questi se in possesso del l'Assi¬ 
curato. 

b) La garanzia è pure efficace se i beni si trovano sull'au¬ 
tovettura in uso all'Assicurato, salvo i seguenti casi: 

- qualora l'autovettura venga lasciata incustodita dal¬ 
le ore 22 alle ore 6; 

- qualora l'autovettura regolarmente chiusa a chiave 
venga lasciata incustodia dalle ore 6 alle ore 22 e gli 
enti assicurati non opportunamente occultati nel 
bagagliaio. 


c) Limitatamente ai danni di rottura la garanzia è effica¬ 
ce solamente nel caso questi siano dovuti ad un inci¬ 
dente in cui rimanga coinvolto anche il veicolo in uso 
dell'Assicurato che trasportava i beni assicurati. 

d) Per gli enti per i quali non è stato stipulato il contratto 
di manutenzione e/o assistenza con la casa costrut¬ 
trice e/o ditte di essa mandatarie qualora l'ente ri¬ 
chieda per norma del fornitore detto contratto, la 
Società non risponde dei danni verificatisi in conse¬ 
guenza di guasto meccanico e/o elettrico salvo che 
l'Assicurato provi che tale guasto sia causato da even¬ 
to esterno agli enti assicurati o da incendio originato 
da uno di questi enti 

6) Somma Assicurata 

La somma assicurata per ciascun ente deve corrispondere 
al costo di rimpiazzo, ossia al prezzo di listino della casa 
costruttrice ed escluso ogni sconto o prezzo di favore di 
un ente nuovo, eguale od equivalente per caratteristiche, 
prestazioni e rendimento economico. 


7) Premio 

Per ogni singola applicazione è stabilito un premio forfet¬ 
tario omnicomprensivo cosi calcolato: 


Somma assicurata 

Premio 

da 2.500.000 a 3.000.000 

L. 

50.000 

da 3.000.000 a 5.000 000 

L. 

65.000 

da 5.000.000 a 7.000.000 

L. 

80.000 

da 7.000.000 a 10.000.000 

L. 

100.000 

da 10.000.000 a 15.000.000 

L. 

120.000 

da 15.000.000 a 20.000.000 

L. 

150.000 


8) Franchigia 

per ogni e qualsiasi danno che colpisca gli enti assicurati è 
stabilita una franchigia di: 

L. 50.000 per somma assicurata fino a L. 5.000.000 
L. 100.000 per somma assicurata superiore a 
L. 5.000 000 

Per sinistri causati da eventi come ai punti g) ed h) delle 
garanzie prestate, la Società liquiderà i danni sotto dedu¬ 
zione di uno scoperto pari al 20% della somma assicurata, 
col minimo delle franchigie sopra stabilite. 

9) Rinvio alle norme di legge 

Per tutto quanto non èqui diversamente regolato, valgono 
le norme di legge. 


^- 

H|p' e applicando 

vi mettono al sicuro 


Si! Desidero assicurare i miei/il mio computer, inviatemi a stretto giro di posta il certificato emesso dalla Ras. 
L'assicurazione avrà valore a decorrere dalle ore 24 del giorno di spedizione della mia adesione. Per la data fa fede il 
timbro postale. 


COGNOME. 

NOME . 

INDIRIZZO. 

CAP. CITTA . 


. PROVINCIA. 

. N. 

Assicuro 1/il seguente personal: 
Marca e Modello 

N. di matricola 

Valore (IVA compresa) 



Con le seguenti periferiche (stampanti, video, drive, hard disk, ecc) 

Marca e Modello n. di matricola Valore (IVA compresa) 


Nel caso non abbiate sufficiente spazio ricopiate su un foglio il testo completo di questo tagliando indicando tutti i prodotti che intendete assicurare. 

Per un totale complessivo di Lire.su cui pago il premio calcolato in base alla tabella riportata qui sopra (su fondoverde). 

Allego assegno non trasferibile di Lire.intestato a Editronica srl, Corso Monforte 39,20l22Milano. 














































Listato 7 


1 INPUT 'NUMERO,BASE,NUOVA BASE- 
>’j04,08,NB: FOR I = 1 TO LEN 
(04):X = ASC ( M1D4 (04,1,1 
)) - 48:X = X - 7 « (X > 9): 

N = N * * OB 4 X: NEXT :N = N 4 
,5:LX = LOG (N) / LOG (NB) 

: FOR I = LX TO 0 STEP - 1 : 

XX = N / NB ‘ I :N = N - XX * 

NB ‘ I:N4 = N4 * CHR4 (48 + 

XX 4 7 * (XX ) ?)): NEXT ! PRINT 
04' (BASE ‘OB’) = *N4' (BASE 
■NB')' 


Un modo ingegnoso di animare il 
testo sullo schermo, per aggiungere 
pepe ai vostri programmi. 


Listato 8 


10 TEXT : HOME : INPUT 'PAROLA?' 
;W»:U= LEN (Ut): FOR 2 = 1 
TO 5: FOR X = 1 TO (39 - U) 

: HTAB X: PRINT U4: NEXT :A = 
PEEK ( - 16336) ♦ PEEK ( - 
16336): FOR X = (38 - U) TO 
2 STEP - 1: HTAB X: PRINT U 
4: NEXT :A = PEEK < - 16336 
) t PEEK ( - 16336): NEXT 


Grafica in alta risoluzione, anima¬ 
zione e suoni. E il tutto naturalmente 
in una linea sola. Eccola: 


Listato 9 


10 FOR X = 768 TO 774: READ A: POKE 
X.A: NEXT : POKE 232,0: POKE 
233.3: DATA 1,0,4,0.62,44,0 
: HGR2 : SCALE= 10: FOR Y = 


20 TO 160 STEP 20: FOR X = 2 
0 TO 250: ROT= X: XDRAU 1 AT 
X,Y:S = PEEK (49200): XDRAU 
1 AT X,Y: NEXT : NEXT 


Ancora un One—liner grafico, dal 
piacevolissimo risultato: 


Listato IO 


1 HGR2 : FOR 2 = 10 TO 0 STEP - 
.2: FOR X = 10 TO 0 STEP - 
.2:Y = - 10 * COS (3 * SOR 
((X - 5) » (X - 5) 4 (2 - 5) 

* (2 - 5))) / 2 4 50: HPLOT 
X » 20 4 2 » 3 4 20 ,Y 4 2 » 
10: NEXT : NEXT 


Pensateci bene: l’animazione con 
l’Apple è così semplice che tutti i suoi 
principi sono nascosti in questa linea: 


Listato 11 


10 FOR A = 769 T0 783: READ B: POKE 
A.B: NEXT : HGR : HC0L0R= 5: 
HPLOT 0,0: CALL 62454; HGR2 
: CALL 769: DATA 173.87,192 
,234,173,84,192,234,173,85,1 
92,234,76,1,3 


Per la serie Text Display, ecco una 
routine interessante. Non dimenticate 
di usare il punto interrogativo invece 
dell’istruzione PRINT, e di non batte¬ 
re gli spazi. 


Listato 12 


1 TEXT : HOME :A4 = 'APPLICANDO' 

: FOR X = 12 TO 23: HTAB X: VTAB 
X: PRINT A4: HTAB 24 - X: VTAB 
X: PRINT A4: HTAB X: VTAB 24 
- X: PRINT A4: HTAB 24 - X: 

VTAB 24 - X: PRINT A4: NEXT 
: FOR D = 1 TO 24: FOR Y = 1 
2 TO 23: 'VTAB D: HTAB Y: PRINT 
A4: VTAB D: HTAB 24 - Y: PRINT 
A4: NEXT : NEXT 


Un generatore di toni musicali? Ec¬ 
colo: per trascriverlo nel vostro com¬ 
puter occorrono due minuti... 


Listato 13 


DATA 141,48,192,164,0,136,192 
,0,208,251,198,1,208,242,198 
|2 208,238 96: FOR N = 768 TO 
786: READ A: POKE N,A: NEXT 
: INPUT 'TONO,LUN6H.*;T,L: POKE 
0,T: POKE 1,0: POKE 2,L: CALL 
768: INPUT ‘ANCORA (S/N)';04 
: IF 04 = 'S' THEN RUN 


Ecco un’altra routine per la conver¬ 
sione di numeri esadecimali in deci¬ 
mali. 


Listato 14 


1 INPUT 'NUMERO ESADEC1MALE? ';H 
N4:HN4 = RIGHT4 COOOO' 4 H 
N4,4):SN = 4096: FOR 1 = 1 TO 
4:2 = ASC ! MID4 (W4,I.1>) 
:N = N 4 SN * (Z - 48 - 7 * 
((2 - 48) > 10)):SN = SN / 1 
6: NEXT : PRINT N:N = 0: RUN 


Ma anche fra gli One—liner ci son 
quelli più lunghi e quelli più corti. 
Questo è forse il più corto in assoluto. 
Produce interessanti effetti sullo 
schermo. 


Listato 15 

10 FOR ! = 

1 TO 1000: 

POKE 

- 16 

299,0: 

HC0L0R= 3: 

POKE 

- 16 

300,0: 

NEXT 




Una utility per creare disegni sullo 
schermo in Lo-Res. I tasti 
I-J-K-M (I-J-K e virgola sull’Ap¬ 
ple Ile) servono per il movimento, il 
tasto C cambia il colore e il tasto Q 
permette di uscire dal programma. 
Impartire al computer un’istruzione 
GR prima del RUN. 


Listato 16 


1 :: POKE 2053,58: 'VTAB 21: CALL 
- 868: INPUT 'C0L0RE=';C: 0N 
(C < 0 OR C > 15) GOTO 1: C0L0R= 
C: FOR Z = 0 T0 1: GET A4:Z = 

(A4 = *C* OR A4 = 'Q'):X = X 

* (A4 = ■K") * (X < 39) - ( 

A4 = *J') « (X > 0) :Y = Y + 

(A4 = 'M') * (Y < 39) - (A4 = 
■I') * (Y > 0): PLOT X,Y: NEXT 
Z: 94 (A4 = 'O GOTO i: POKE 
2053,136: PRINT 'FINE' 



Volete la routine di imput più corta 
dell’universo? Probabilmente è 
questa: 


Listato 17 

0 B4 = B4 4 A4: GET A4: PRINT A4: 

: 94 A4 < ) CHR4 (13) GOTO 
0: PRINT A4B4 

Ancora una gemma musicale. Pro¬ 
vatela. Nel batterla, lasciate uno spa¬ 
zio prima e dopo l’istruzione DATA, e 
ignorate invece tutti gli altri spazi. 


Listato 18 


2 FOR I = 768 TO 785: READ A: POKE 
!,A: NEXT : FOR I = ! TO 255 
POKE 773,1: CALL 768: NEXT 
FOR I = 255 TQ ! STEP - 1 
POKE 773,1 : CALL 768: NEXT 
RUN : DATA 169,128,133,9, 
160,201,152,170,202,208.253, 
173,48,192,136,208,245,96 


Per la nostra minigalleria d’arte in 
alta risoluzione, ecco un altro capola¬ 
voro: 


Listato 19 


10 FOR 1 = 768 TO 777: READ P: POKE 
I,P: NEXT : POKE 232,0: POKE 
233,3: HGR2 : HC0L0R= 3: FOR 
A = 1 T0 10000:5 = INT ( RND 
(1) « 5) ♦ 1: FOR R = 1 TO 6 
5 STEP S: R0T= R: SCALE= R: DRAU 
1 AT 139,95: NEXT : FOR R = 

66 TO 130 STEP S: R0T= R: SCALE= 
131 - R: XDRAU 1 AT 139,95: NEXT 
: NEXT : DATA 1,0,4,0,33,63 
,54,45,4, 


Un gioco, un vero gioco, natural¬ 
mente in una linea sola. Guidate l’auto 
senza farla sbattere contro i margini 
della pista usando il punto (.) e la bar¬ 
retta (/) per farla girare a destra o a 
sinistra. Fate partire il programma con 
un comando HOME:RUN. 


Listato 20 


10 U = <U = 0) * 10 4 U - .01 4 ( 

U < 3):K = PEEK (49152):X = 

X - (K = 174) 4 (K = 175) 4 
(X = 0) * lOsL = (L < 4) * 2 
4 L 4 SGN ( RND (1) - .5) - 
(L 4 U ) 30): C0L0R= 12: HL1N 
0,L - 1 AT 47: HLIN DII* 

1,34 AT 47:C = SCRN( X - 1, 

21): HTAB (X): VTAB 11: PRINT 
■V:: HTAB 37: VTAB 24 :T = T 
4 1: PRINT T: 1F C < >12 THEN 
10 


Cento programmi one liner sono dispo¬ 
nibili su dischetto. I prezzi e le modalità 
d'ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 
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// 


Vi piacciono le regate? O preferite esplorare le caverne dell’Olimpo? Oppure vorreste 
avere sul vostro schermo il fantastico gioco della scimmia che scappa arrampicandosi sulle 
pareti lisce di un grattacielo? Siete invece tipi riflessivi e vi dilettate di musica? Non 
preoccupatevi, qui c’è sicuramente quello che fa per voi. Per gli amanti di tanti giochi tutti 
insieme è disponibile una raccolta. Per chi, infine, vuole migliorare le proprie capacità di 
programmatore, ecco tutti i trucchi del Basic su dischetto. E a prezzi eccezionali. 






REGATTA. Un gioco entusiasmante che tara 
impazzire marinai esperti e meno esperti di 
qualunque età. Ogni concorrente ha a 
disposizione una barca e un circuito. Poi ci 
sono i venti, gli ostacoli, gli imprevisti... Una 
grafica realistica vi farà volare tra le onde. 
Paddle o Joystick opzionali. Dischetto con 
programmae manuale in elegante 
confezione a sole 40.000 lire. 


CAVES 0F OLYMPUS. Oltre a una grafica a 
colori ultraprofessionale, questo gioco di 
abilità sfodera suoni ed effetti speciali di 
qualità nettamente superiore. Divertente, 
intrigantee irresistibile. Non richiede né 
paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione asole 40.000 lire. 


APE ESCAPE. Una scimmia è fuggita dallo 
zoo e si arrampica sulle finestre di un 
grattacielo. Elicotteri le ronzano attorno e il 
guardiano dello zoo la insegue. Riuscirà a 
raggiungere il tetto e la libertà? Tutto dipende 
da quanto abili siete. Grafica a colori. Non 
richiede né paddle né joystick. Dischetto con 
programmae manuale in elegante 
confezione a sole 40.000 lire. 



MUSIC GAMES. 12 programmi educativi e 
divertenti sul filo delle 7 note. Senza bisogno 
d'altro, il vostro Apple si tramuterà in un 
docile strumento musicale dal quale 
impalare e col quale divertirsi. Sono richieste 
le paddle o il joystick. Dischetto con 
programmae manuale in elegante 
confezionea sole 40.000 lire. 


APPLE GAMES. 11 giochi: Flip-Flop, 
Mastermind, T owers, Sherlock's home, 
AttackoftheZargons, Phaser Practice, 
Acey-Ducey, Big government, Tic-Tac-Toe, 
Qubic, Depth charge. E tre programmi di 
utilità: Shapetablegenerator, Opening 
ceremonies, Mastercatalog. Peralcuni 
giochi sono richieste le paddle o il joystick. 
Dischetto con programma e manuale in 
elegante confezione a 50.000 lire. 


BASIC TRICKS FOR THE APPLE. 35 routine 
che renderanno molto più professionali i 
vostri programmi in Basic e che vi sarà 
facilissimo imparare utilizzando il manuale e 
il dischetto offerti in elegante confezione a 
sole 50.000 lire. 


K 


Cognome e nome. 

Via.N. 

Cap.Città .Provincia. 

Scelgo la seguente formula di pagamento: 

□ Allego assegno non trasferibile di lire.intestato a Editronica srl, 

Corso Monforte 39, 20122 Milano 

□ Allego ricevuta di versamento di lire .sul conto corrente postale 

n. 19740208, intestato a Editronica srl, Corso Monforte 39, 20122 Milano 


Sì! Inviatemi subito, senza aggravio di spese 
postali, il o i programmi contrassegnati con 
una crocetta. 

□ REGATTA. 40.000 lire. 

□ CAVES OF OLYMPUS. 40.000 lire. 

□ APE ESCAPE. 40.000 lire. 

□ MUSIC GAMES. 40.000 lire. 

□ APPLE GAMES. 50.000 lire. 

□ BASIC TRICKS FOR THE APPLE. 

50.000 lire. 


Data 


Firma 







































Programmare è divertente, creativo, affascinante. Ma 
talvolta bisogna tornare sul listato per correggere e 
modificare qualcosa. Allora può capitare di pentirsi di aver 
preferito la compattezza alla chiarezza. A meno che... 


Lista tutto in vista 


A ppena si prende una certa fami¬ 
liarità con l’Applesoft ci si accor¬ 
ge della possibilità di dare istruzioni 
multiple in ogni linea di programma. 
Tale attraente possibilità diventa poi 
quasi indispensabile nei programmi 
più complessi e lunghi. Infatti, oltre a 
diminuire le dimensioni in memoria 


del programma, l’Applesoft ha anche 
la non trascurabile conseguenza di un 
considerevole miglioramento del tem¬ 
po di esecuzione. 

L’uso massiccio delle istruzioni mul¬ 
tiple ha però degli inconvenienti prati¬ 
ci che non possono essere trascurati. 
In primo luogo rende i programmi in 


Applesoft difficili da capire anche per 
l’autore del programma rendendogli 
la vita difficile al momento di modifi¬ 
care la sua opera con qualche variazio¬ 
ne rispetto allo schema originale. In 
secondo luogo può facilmente "oscura¬ 
re" la struttura logica di un programma 
in Applesoft. 
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I 


I 


Listato 1 - PRETTYLISTER - APPLESOFT 

10 REM ********************** 

11 REM * PRETTYLISTER * 

12 REM * DI BRYAN BROUN * 

13 REM * COPYRIGHT (0 1985 * 

14 REM * BY APPLICANDO 4 * 

15 REM * MICROSPARC, INC * 

14 REM a********************* 

43000 PRINT : PRINT "PRETTYLISTER AWIATG* : PRINT CHR$ (.4.) 

;"PRttr: PRINT CHR$ <?);’80N*:FF = 12:PL = 58:LL = 4 
OiNT = 104: DIM TK^(NT):rD = 53454;SP$ = CHR» (32): 
POR I = 1 TO 5:B5$ = B5$ * SP$: NEXT I : FOR I = 0 TO 
NT 

43010 C = PEEK (AD): IF C < 128 THEN TK$(I) = TK$(1) * OH 
R$ (C):AD = AD + 1 : GOTO 43010 
43020 TK$(I) = TK$(1) 4 CHR$ (C - 128):AD = AD ♦ 1 : NEXT I 
:PG = 1:NP = 2: PRINT TAB( 70);"PAGINA ";PG: PRINT : 
NA = PEEK (103) * 254 » PEEK (104) 

43030 NL = PEEK <NA) + 254 * PEEK (NA + 1): IF NL = 0 THE 
N GOTO 43290 

43040 LN = PEEK (NA t 2) 4 254 * PEEK (NA 4 3): IF LN > 

= 43000 THEN GOTO 43290 
43050 I = 4 

43040 C = PEEK (NA 4 I): IF C = 0 THEN NI = 0: GOSUB 43140 
= NL: GOTO 43030 

43070 IF C < 128 THEN CD$ = CD$ 4 CHR$ (C): GOTO 43100 
43080 IF CD» < > "" AND RIGHTl <CD$,1) < > SP$ THEN CD* 
= CD* 4 SP$ 

43090 CD* = CD* + TK*(C - 128) 4 SP* 

43100 IF C = 34 THEN IO = NOT (1Q): GOTO 43150 
43110 IF (C = 58 AND NOT IO) OR C = 194 THEN GOSUB 43140: 
GOTO 43150 

43120 IF C = 173 THEN NI = NI 4 1 : GOTO 43150 


DOS 3.3 #1» 
ProDOS filili 
APPLE 7/e -filili 
APPLE /A filili 


43130 IF C = 129 THEN NF = NF 4 1: GOTO 43150 

43140 IF C = 130 THEN NS = 1:NF = NF - 1 

43150 I = I 4 1: GOTO 43040 

43140 IF LN < 0 THEN PRINT 85*;: GOTO 43180 

43170 PRINT RIGHT* (B5* + STR* (LN),5);:LN = -1 

43180 IF NS THEN IN = IN - 3:NS = 0 

43190 PB = 0 : JN = IN : IN = 1 4 3 * (NF + NI) 

43200 LC = LEN (CD*):LP = JN 4 LC: IF LP > LL THEN GOTO 4 

3230 

43210 IF PB = 1 THEN PRINT B51: 

43220 FOR J = 1 TO JN: PRINT SP*:: NEXT J: PRINT CD*:CD* = 
”: GOSUB 43270: RETURN 

43230 FOR K = (LL - JN) TO 1 STEP - 1:A* = MIO* (CD$,K.l) 

: IF (A* = SP* OR A* = CHR* (42) OR A* = CHR* (43) 
OR A* = CHR* (44) OR A* = CHR* (45) OR A* = CHR* ( 
47)) THEN GOTO 43250 
43240 NEXT K 

43250 IF PB = 1 THEN PRINT 851: 

43240 PB = 1 : FOR J = I TO JN: PRINT SPI;: NEXT J: PRINT L 
EFT* (CDl.K):CD* = RIGHT* <CD*.LC - K): GOSUB 43270: 
GOTO 43200 

43270 NP = NP 4 1: IF NP > = PL THEN NP = 2: PRINT CHR* ( 
FF):PG = PG 4 1: PRINT TAB( 70);"PAGINA ";PG: PRINT 
43280 RETURN 

43290 PRINT CHR* (FF): PRINT CHR* (4):"PR#0": PRINT "PRET 
TYLISTER COMPLETO": FOR J = 1 TO 3: PRINT CHR* (7): 
NEXT J 
43300 END 

43310 REM ** AGGIUNGE IN CODA AL PROGRAMMA PRINCIPALE 
43320 REM ** ESEGUE CON 'RUN 43000' 

43400 PRINT CHR* <4)"0PEN PRETTY": PRINT CHR* (4)"URITE P 
RETTY": POKE 33.33: LIST 43000,43300: PRINT : PRINT 
CHR* (4)"CLOSE PRETTY": TEXT : END 


Gli studiosi di informatica hanno re¬ 
centemente sottolineato l’importanza 
di una buona struttura del programma 
sia per la realizzazione e il debugging 
dei moduli che per facilitare la loro 
modifica. I linguaggi di computer di 
basso livello come l’Applesoft non si 
prestano a un formato strutturato. È 
però possibile fare listati di programmi 
in Applesoft che si prestano ad alcune 
delle tecniche strutturate che vengono 
attualmente usate nel campo dei com¬ 
puter, come un rientro dei loop 
FOR—NEXT e dei blocchi IF—T- 
HEN. Simili listati rappresentano visi¬ 
vamente la struttura logica del pro¬ 
gramma in Applesoft, rendendo certi 
errori logici più facili da identificare, 
oltre a renderne più facile la lettura. 
Per sopperire a queste naturali caren¬ 
ze dell’Applesoft è stato realizzato il 
programma PRETTYLISTER. 

Caratteristiche 

La routine in Applesoft visibile nel 
listato 1 è una versione modificata del¬ 
la routine PRETTYLISTER di Paul 
Sand (Washington Apple Pi Newslet¬ 
ter, Novembre 1980). La routine origi¬ 
nale ha queste caratteristiche (tutte 
comprese nel programma del listato 
1 ): 

1) Stampa una sola istruzione per linea 

2) Rientra i loop FOR—NEXT, perfi¬ 
no quelli nidificati 


Listato 2 - PRETTYLISTER - ASSEMBLER 

SOURCE FILE: PRETTYLISTER ASM 

NEXT OBJECT FILE NAME IS PRETTYLISTER ASM.OBJO 


4000: 


1 

0RG 

$4000 


DOS 3.3 f*H 

4000: 


2 : 




4000: 


3 ************************** 

ProDOS filili 

4000: 

4000: 


4 * 

5 * 

PRETTYLISTER 

* 

* 

APPLE JA filili 

4000; 


4 * 



# 

APPLE /A 

4000: 


7 * COPYRIGHT (0) 1985 

* 


4000: 


8 * BY APPLICANDO 4 

* 


4000: 


9 * MICROSPARC, INC. 

# 


4000: 


10 * 

BRYAN 

BROUN 

* 


4000: 


11 * 



* 


4000: 


12 ************************** 


0019: 


13 TLINE 

Filli 

$19 

; INDIRIZZO DEL SEGMENTO STAMPABILE 

001B: 


14 SADR 

EQU 

$1B 

; INDIRI220 DELLA LINEA CORRENTE 

001D: 


15 NXLIN 

FQII 

$1D 

iINDIRIZZO DELLA LINEA SEGUENTE 

0047: 


14 ASTR 

Filli 

$47 

[INDIRIZZO PARTENZA PROGRAMMA BASIC 

OOF9: 


1? CURTAB 

FBI! 

$F9 

; INDIRIZZO TAVOLA DEI TQKEN 

OOFB: 


18 ADLPRT 

EQU 

$FB 

; INDIRIZZO PARTENZA LINEA STAMPABILE 

DODO: 


19 TKADA 

Filli 

«DODO 

[PARTENZA PRIMA TAVOLA DEI TQKEN 

D1CB: 


20 TKADB 

FQII 

$D1CB 

(PARTENZA SECONDA TAVOLA DEI TQKEN 

F94A: 


21 PRLB2 

EQU 

$F94A 

; STAMPA SPAZI VUOTI 

FC58: 


22 HOME 

EQU 

$FC58 

; PULISCE LO SCHERMO 

FD8E: 


23 CROUT 

EQU 

$FD8E 

:RIT0RN0 CARRELLO 


FDED: 


24 COUT 

EQU 

«FDED 

[STAMPA UN CARATTERE 

FE95: 


25 OUTPORT EQU 

$FE95 

; IMPOSTA OUTPUT 


4000: 


24 ; 





4000:A5 

48 

27 

IDA 

ASTR+1 

: BYTE ALTO INDIRIZZO DI PARTEN2A 

4002:85 

10 

28 

STA 

SADR+1 



4004:A5 

47 

29 

LDA 

ASTR 



4004:85 

1B 

30 

STA 

SADR 



4008:20 

9D 43 

31 

JSR 

TITLE 



400B:A0 

00 

32 

LDY 

K0 

;C'E' UN PROGRAfMA IN MEMORIA’ 

4C0D :S1 

1B 

33 

IDA 

(SADR),Y 



JflfiRI 

14 

8 

% 

BEGIN 



4012:81 

1B 

34 

LDA 

(SADR),Y 



4014:00 

11 

37 

BNE 

BEGIN 



4014:A0 

00 

38 

LDY 

*0 

[NO, STAMPA MESSAGGIO E FINISCE 

4018:B9 

28 44 

39 ERR 

1 DA 

ERMSG.Y 



401B:C8 


40 

INY 

• 



4010:20 

ED FD 

41 

JSR 

COUT 



401F:C0 

12 

42 

CPY 

#18 



4021 :D0 

F5 

43 

FNF 

ERR 



4023:20 

BE FD 

44 

JSR 

CROUT 
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I 


<4026:40 



45 

RTS 


6027:A9 

00 


46 BEGIN 

LDA 

«0 

6029:A8 



47 

TAY 


602A: 99 

F3 

63 

48 LOOP 

STA 

CURS0R,Y 

602D:C8 



49 

INY 


602E:C0 

10 


50 

CPY 

028 

6030:00 

F8 


51 

BNE 

LOOP 

6032:A? 

70 


52 

LDA 

0>LINE 

6034:85 

19 


53 

STA 

TLINE 

6036 :A9 

64 


54 

LDA 

#<LINE 

6038:85 

1A 


55 

STA 

TLINE+1 

603A :A9 

01 


56 

LDA 

01 

603C:2O 

95 

FE 

57 

JSR 

OUTPORT 

603F:A9 

09 


58 

LDA 

09 

6041:20 

ED 

FD 

59 

JSR 

COUT 

6044:A0 

00 


60 

LDY 

00 

6046:B9 

25 

64 

61 PRINTER LDA 

PRINT.Y 

6049;C8 



62 

INY 


604A:8C 

F8 

63 

63 

STY 

J 

6040:20 

ED 

FD 

64 

JSR 

COUT 

6050:AC 

F8 

63 

65 

LDY 

J 

6053:00 

03 


46 

CPY 

03 

6055:DO 

EF 


67 

BNE 

PRINTER 

6057 :A0 

01 


68 

LDY 

01 

6059:30 

03 

64 

69 

STY 

PG 

6050:08 



70 

INY 


605D:8C 

FE 

63 

71 

STY 

NP 

6060:20 

D9 

62 

72 

JSR 

PAGER 

6063:A0 

00 


73 L30 

LDY 

00 

6065:81 

1B 


74 

LDA 

(SADR).Y 

6067:85 

1D 


75 

STA 

NXLIN 

6069:08 



76 

INY 


606A:B1 

1B 


77 

LDA 

(SADR).Y 

6060:85 

1E 


78 

STA 

NXLIN+1 

606E:DQ 

07 


79 

BNE 

COPLIN 

6070:A5 

1D 


80 

LDA 

NXLIN 

6072 : DO 

03 


81 

BNE 

COPLIN 

6074:40 

65 

62 

82 

JMP 

L290 

6077:A0 

02 


83 C0PLIN 

LDY 

02 

4079 :B1 

1B 


84 

LDA 

(SADR),Y 

607B:8D 

09 

64 

85 

STA 

TLO 

607E:C8 



86 

INY 


607F:Bi 

1B 


87 

LDA 

(SADR).Y 

6081:8D 

08 

64 

88 

STA 

THI 

6084: 



89 : 



6084: 



90 :C0NTR0LLA LA LINEA 

6084: 



91 : 



6084:A0 

04 


92 L50 

LDY 

04 

6086 :B1 

1B 


93 L60 

LDA 

(SADR).Y 

6088:DO 

11 


94 

BNE 

L70 

608A:8D 

FF 

63 

95 

STA 

NI 

608D: 20 

12 

61 

96 

JSR 

L160 

6090:A5 

1D 


97 

LDA 

NXLIN 

6092:85 

1B 


98 

STA 

SADR 

6094:A5 

1E 


99 

LDA 

NXLIN+1 

6096:85 

1C 


100 

STA 

SADR+1 

6098:40 

63 

60 

101 

JMP 

L30 

609B: 09 

80 


102 L70 

CMP 

O$80 

6090 :BO 

06 


103 

BCS 

L80 

609F: 20 

71 

62 

104 

JSR 

CHINL 

60A2:40 

03 

60 

105 

JMP 

LIDO 

60A5 :48 



106 180 

PM 


60A6:98 



107 

TYA 


60A7 :48 



108 

PHA 


60A8:AD 

F3 

63 

109 

LDA 

CURS0R 

60AB:FO 

0E 


110 

BE9 

L90 

60AD:A8 



111 

TAY 


60AE:88 



112 

DEY 


60AF:B9 

70 

64 

113 

LDA 

LINE,Y 

60B2:C9 

20 


114 

CMP 

0Ì2G 

6084 :F0 

05 


115 

BEO 

L90 

60B6:A9 

20 


116 

LDA 

0120 

6088:20 

71 

62 

117 

JSR 

CHINL 

60BB:68 



118 L90 

PLA 


60BO:A8 



119 

TAY 


60BD : 68 



120 

PLA 


60BE: 48 



121 

PHA 


60BF:20 

7B 

62 

122 

JSR 

GETTOK 

6002:68 



123 

PLA 


6003:09 

22 


124 L100 

CMP 

034 

60C5:D0 

OS 


125 

BNE 

LI 10 

6007:AD 

F7 

63 

126 

LDA 

IQ 

60CA:49 

01 


127 

E0R 

01 

6000:80 

F7 

63 

128 

STA 

IO 


; INIZIALIZZA LE VARIABILI 


jINIZIALIZZA SEGMENTO 
;DA STAMPARE 

;ATTIVA LA STAMPANTE (PRItl) 
jltWIA CHR4(9)'80N‘ 


; STAMPA NUMERO PAGINA 


; CARICA NUMERO BINARIO LINEA 


; CARICA UN BYTE 


E' UN TOKEN? 

SI=>L80 

NO - METTE IL CARATTERE NELLA LINEA 
; SALVA IL TOKEN E Y 


; INIZIO DELLA LINEA? 
;SI=)L90 


; CARICA CARATTERE LINEA CORRENTE 
; SPAZIO? 

;SI=)L?0 

;METTE INO SPAZIO NELLA LINEA 
jRIPRISTINA TOKEN E Y 

;TROVA IL TOKEN E LO METTE NELLA LINEA 
iDOPPIE VIRGOLETTE 

iCOMPLEMENTA IO 

Continua 


3) Rientra i blocchi di codice control¬ 
lati da istruzioni IF-THEN. 

Caratteristiche aggiuntive della ver¬ 
sione del listato 1 sono: 

1) Inizializzazione automatica della 
stampante (cioè PR#1 con la scheda 
d’interfaccia stampante nello slot N. 1) 
all’inizio, e chiusura automatica (cioè 
PR#0) alla fine del listato 

2) Avanzamento della carta automati¬ 
co alla fine di un numero specificato di 
linee per provvedere alla macinazio¬ 
ne alta e bassa dei fogli su cui viene 
stampato il listato (questo è utile con 
le stampanti come la EPSON MX—80 
che non lo fanno automaticamente) 

3) Numerazione automatica delle pa¬ 
gine del listato 

4) Divisione automatica delle linee 
lunghe in segmenti più piccoli al fine 
di: a) ingrandire i margini destri; b) 
spezzare una linea lunga in linee di 
sequenza più piccole, interrompendo 
solo a uno spazio, una virgola, un + , 
un — , un * o un /; c) rientrare opportu¬ 
namente le linee di sequenza che ne 
risultano. 

L’impiego 
di PRETTYLISTER 

Questa routine in Applesoft deve 
essere aggiunta in coda al programma 
in Applesoft da listare, e poi eseguita 
introducendo RUN 63000. Dato che 
questa routine comincia con la linea 
63000 il programma da listare non può 
contenere numeri di linea superiori o 
uguali a 63000. 

La soluzione più comoda è quella di 
salvare il programma PRETTYLI¬ 
STER su dischetto come file di testo e 
poi fare il suo EXEC in memoria 
quando è necessario.Per creare il file 
EXEC basta battere RUN 63400. Do¬ 
po di ciò si può caricare il proprio pro¬ 
gramma da listare, fare EXEC PRET- 
TY e quindi battere RUN 63000. 

L’inconveniente principale della 
versione di PRETTYLISTER scritta 
in Applesoft è che la sua velocità risul¬ 
ta piuttosto ridotta: oltre a un sensibile 
ritardo iniziale, causato dalla lettura 
dei token dell’Applesoft dalla memo¬ 
ria alla matrice stringa TK$, c’è una 
percettibile pausa alla fine di ogni li¬ 
nea stampata mentre viene costruita la 
linea seguente. In altre parole il 
PRETTYLISTER in Applesoft non 
consente di "tenere il passo" con la 
stampante. La lentezza del program¬ 
ma in questa versione rende vani molti 
dei suoi pregi intrinsechi: per questo è 
stata necessaria una "traduzione" in 
Assembler che renda molto più "scat¬ 
tante" l’utilissimo PRETTYLISTER. 
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Versione 
in Assembler 

La maniera più logica con cui si po¬ 
teva accelerare il procedimento di li¬ 
stato era quella di generare una versio¬ 
ne in Assembler (ASM) del program¬ 
ma in Applesoft. In realtà noi credia¬ 
mo che i linguaggi ad alto livello siano 
sempre da preferire rispetto ai lin¬ 
guaggi meno versatili, ma in questo 
caso la necessità di rendere più veloce 
l’esecuzione del programma ci ha con¬ 
vinto a tradurre il PRETTYLISTER 
nel linguaggio assemblatore del 6502. 

Come previsto questa versione gira 
molto più velocemente di quella in 
Applesoft, e l’unica limitazione all’uso 
del programma è, in questo secondo 
caso, costituita dalla velocità della 
stampante. Inoltre non ci sono restri¬ 
zioni ai numeri di linea del programma 
da listare se non quelle imposte dal- 
l’Applesoft. La routine viene eseguita 
con questa sequenza di comandi: 


LOAD (programma da listare) 
BLOAD PRETTYLISTER 
ASM. OBJ 
CALL 24576 


Né la versione in Applesoft né quel¬ 
la in Assembler del PRETTYLISTER 
opereranno il rientro corretto delle 
molte varianti dei comandi Applesoft, 
come NEXT I,J. Non abbiamo infatti 
ritenuto necessario estendere la stesu¬ 
ra di questo programma per compren¬ 
dere anche i casi che si verificano mol¬ 
to raramente dato che, con una mag¬ 
giore completezza, avremmo certa¬ 
mente reso più difficile la digitazione 
delle istruzioni in linguaggio macchi¬ 
na, lavoro sempre noioso e soggetto a 
errori di battitura molto difficili da in¬ 
dividuare. 


60CF :4C 

0E 

61 

129 

JMP 

LI 50 

£■002:80 

07 

64 

130 LI 10 

STA 

TEMP 

60D5:C9 

3A 


131 

CNP 

#58 

Ó0D7: DO 

05 


132 

BNE 

BRTEST 

6009:AD 

F7 

63 

133 

LOA 

IO 

ÓODCiFO 

07 


134 

8E0 

TRUETST 

60DE:AD 

07 

64 

135 0RTEST 

LOA 

TEMP 

60E1:C9 

C4 


136 

CMP 

#196 

60E3:D0 

09 


137 

BNE 

L120 

Ó0E5.-A0 

07 

64 

138 TRUETST LOA 

TEMP 

6OE8:20 

12 

61 

139 

JSR 

L160 

60EB : 4C 

0E 

61 

140 

JMP 

L150 

60EE:C9 

AD 


141 LI 20 

CMP 

#173 

SOFOiDO 

06 


142 

BNE 

L130 

60F2:EE 

FF 

63 

143 

INC 

NI 

<60F5 : 4C 

0E 

61 

144 

JMP 

LI 50 

60F8:C9 

81 


145 L130 

CNP 

#129 

ÓOFA:D0 

06 


146 

BNE 

L140 

60FC:EE 

00 

64 

147 

INC 

NF 

60FF:4C 

OE 

61 

148 

JMP 

L150 

6102:C9 

82 


149 L140 

CMP 

#130 

6104:DO 

08 


150 

BNE 

L150 

6106:A9 

01 


151 

LDA 

#1 

6108:8D 

01 

64 

152 

STA 

NS 

ólOBiCE 

00 

64 

153 

OEC 

NF 

610E:C8 



154 L150 

INY 


61OF:4C 

86 

60 

155 

JMP 

L60 

6112:AD 

08 

,64 

156 L160 

LOA 

THI 

6115 :C9 

FF 


157 

CMP 

#255 

6117:00 

00 


158 

ONE 

LI 70 

6119:AD 

09 

64 

159 

LDA 

TLO 

611C:C9 

FF 


160 

CMP 

#255 

611E:D0 

06 


161 

BNE 

LI 70 

6120:20 

66 

63 

162 

JSR 

PUT5SP 

6123:4C 

56 

61 

163 

JMP 

L180 

6126:A0 

08 

64 

164 LI 70 

LOA 

THI 

6129:80 

F5 

63 

165 

STA 

HI 

612C:AD 

09 

64 

166 

LOA 

TLO 

612F:8D 

FC 

63 

167 

STA 

LO 

6132:98 



168 

TYA 


6133:48 



169 

PM 


6134:20 

10 

63 

170 

JSR 

COfWL 

6137 :A0 

00 


171 

LDY 

#0 

6139:B9 

0A 

64 

172 PRNUM 

LOA 

ANSU,Y 

613C: 09 

80 


173 

ORA 

#$80 

613E:C8 



174 

INY 


613F:8C 

F8 

63 

175 

STY 

J 

6142:20 

E0 

FO 

176 

JSR 

COUT 

6145:AC 

F8 

63 

177 

LDY 

J 

6148:C0 

05 


178 

CPY 

#5 

614A:D0 

ED 


179 

BNE 

PRNUM 

6140:68 



180 

PLA 


614D:A8 



181 

TAY 


6!4E:A9 

FF 


182 

LOA 

#255 

6150:80 

09 

64 

183 

STA 

TLO 

6153:8D 

08 

64 

184 

STA 

THI 

6156:A0 

01 

64 

185 LISO 

LOA 

NS 

6159 :F0 

0E 


186 

BEO 

L190 

6!58:CE 

F6 

63 

187 

OEC 

IN 

615E:CE 

F6 

63 

188 

OEC 

IN 

6161 : CE 

F6 

63 

189 

OEC 

IN 

6164:A9 

00 


190 

LOA 

#0 

6166:80 

01 

64 

191 

STA 

NS 

6169:8D 

04 

64 

192 L190 

STA 

PB 

616C:AD 

F6 

63 

193 

LOA 

IN 

616F:80 

F9 

63 

194 

STA 

JN 

6172:AD 

FF 

63 

195 

LOA 

NI 

6175:18 



196 

CLC 


6176:60 

00 

64 

197 

A0C 

NF 

6179:80 

07 

64 

198 

STA 

TEMP 

617C:2A 



199 

R0L 

A 

617D : 18 



200 

CLC 


617E: 60 

07 

64 

201 

ADC 

TEMP 

6181:AA 



202 

TAX 


6182 :E8 



203 

1NX 


6183:8E 

F6 

63 

204 

STX 

IN 

6186:AE 

F3 

63 

205 

L0X 

CURS0R 

6189:8E 

FB 

63 

206 

STX 

LC 

618C:A0 

F9 

63 

207 L200 

LDA 

JN 

618F : 18 



208 

CLC 


6190:60 

FB 

63 

209 

A0C 

LC 

6193:80 

F0 

63 

210 

STA 

LP 

6196:CD 

10 

64 

211 

CMP 

LL 

6199.-F0 

02 


212 

BEO 

L210 


; “THEN* 

; MF* 

; 'POR* 

; ■NEXT" 

i -FF" 

; ’FF 1 


; CONVERTE NUMERO LINEA IN DECIMALE 
[OUTPUT NUMERO DI LINEA 


! IMPOSTA NUMERO LINEA = -1 


sNI+NF 
; SALVA 
;(NI+NF)*2 

;<NI+NF)«3 

;<NI+NF)*3+1 

[LUNGHEZZA linea corrente 
;SALVA LUNGHEZZA LINEA STAMPABILE 

;LP=JN4LC 

[PARTE LUNGHEZZA LINEA STAMPABILE 
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419B:BC 

2F 


213 

BCS 

L230 


6190 :AD 

04 

44 

214 L210 LDA 

PB 


Ó1A0.-C9 

01 


215 

CMP 

#i 


61A2 DO 

03 


216 

SNE 

L220 


61A4:20 

66 

63 

217 

JSR 

PUT5SP 


61A? 20 

60 

43 

218 L220 JSR 

PRSPACE 

; STAMPA ’JN' SPAZI 

61AA:AD 

FB 

63 

219 

LDA 

LC 


61AD:8D 

02 

64 

220 

STA 

NBRBYT 


61BO|A5 

19 


221 

LDA 

TLINE 


6162:85 

FB 


222 

STA 

ADLPRT 


61B4:A5 

14 


223 

LDA 

TLINE+1 


6166:85 

FC 


224 

STA 

ADLPRT*1 


61B8:20 

79 

43 

225 

JSR 

PRL1NE 

; STAMPA LA LINEA 

6!BB:A9 

00 


226 

LDA 

40 


61BD: 80 

F3 

63 

227 

STA 

CURS0R 


61C0:20 

44 

42 

228 

JSR 

L270 


61C3:A9 

70 


229 

LDA 

#>LINE 

ìREIMPOSTA LA PARTENZA DEL SEGMENTO 

6105:85 

19 


230 

STA 

TLINE 

; DA STAMPARE NELLA LINEA 

61C7:A9 

64 


231 

LDA 

«(LINE 


4109:85 

14 


232 

STA 

TLINE*1 


6108:60 



233 

RTS 



61 OC :AD 

10 

64 

234 L23C 

LDA 

LL 


61CF:38 



235 

SEC 



61D0:ED 

F9 

63 

236 

SBC 

JN 


6! D3:8D 

F4 

63 

237 

STA 

K 


6106:8C 

06 

44 

238 

STY 

SAVY 

; SALVA SPQST.NELLA LINEA DI PROGRAMMA 

61D9:AS 



239 

T4Y 



61 DA : B1 

19 


240 KL00P LDA 

(TLINE),Y 


4100:09 

20 


241 

CMP 

#$20 

; SPAZIO 

61 DE :FO 

20 


242 

BEQ 

L250 


61EO:C9 

2B 


243 

CMP 

#$2B 

; ■♦* 

61E2:FO 

10 


244 

BEQ 

L250 


61E4:C9 

20 


245 

CMP 

«20 

! 

41E4:F0 

18 


246 

BEQ 

L250 


61E8:C9 

2F 


247 

CMP 

#$2F 

| V" 

61EA : FO 

14 


248 

BEQ 

L250 


61EC:C9 

24 


249 

CMP 

#$2A 

i 

61EE:F0 

10 


250 

8EQ 

L250 


41F0:C9 

20 


251 

CMP 

#$2C 

■ » ■ 

61F2:FO 

OC 


252 

BEQ 

L250 


61F4:88 



253 L24C 

0EY 



61F5:98 



254 

TYA 



61F6:C9 

00 


255 

CMP 

#0 


61F8:F0 

06 


254 

BEQ 

L250 


61 FA : 8D 

F4 

43 

257 

STA 

K 


6!FO:4C 

04 

61 

258 

JMP 

KL00P 


4200 ;AD 

04 

64 

259 L250 

LDA 

PB 


4203:09 

01 


260 

CMP 

«1 


6205:00 

03 


261 

BNE 

L260 


6207:20 

66 

63 

242 

JSR 

PUT5SP 


620A:A9 

01 


263 L260 

LDA 

#1 


4200:80 

04 

64 

264 

STA 

PB 


620F: 20 

60 

63 

245 

JSR 

PRSPACE 

; STAMPA "JN" SPAZI 

6212:40 

FA 

43 

2 44 

LDA 

K 


6215:80 

02 

64 

267 

STA 

NBRBYT 


6218:45 

19 


248 

LDA 

TLINE 


6214:85 

FB 


269 

STA 

ADLPRT 


4210:45 

14 


270 

LDA 

TLINE*! 


621E : 85 

FC 


271 

STA 

ADLPRT*1 


6220:20 

79 

43 

272 

JSR 

PRLINE 

; STAMPA LA LINEA 

6223:45 

19 


273 

LDA 

TLINE 


6225:18 



274 

CLC 



4224:40 

F4 

63 

275 

AOC 

K 

jAGGIGRNA INDIRIZZO PARTENZA DELLA 

6229:85 

19 


276 

STA 

TLINE 

; LINEA PER LA STtflPA 

4228:45 

14 


277 

LDA 

TLINE*! 


622D:69 

00 


278 

AOC 

#0 


622F: 85 

14 


279 

STA 

TLINE*1 


4231:40 

FB 

63 

280 

LDA 

LC 


4234:38 



281 

SEC 



6235 :ED 

FA 

63 

282 

SBC 

K 


4238:80 

FB 

43 

283 

STA 

LC 


6238:20 

44 

62 

284 

JSR 

L270 


623E:4C 

06 

44 

285 

LDY 

SAVY 

jRIPRISTIW SPOSI. LINEA PROGRAMMA 

4241:40 

80 

61 

286 

JMP 

L200 


6244:EE 

FE 

43 

287 L27( 

INC 

NP 


4247:40 

FE 

63 

288 

LDA 

NP 


6244:00 

10 

44 

289 

CMP 

PL 


6240:30 

15 


290 

BMI 

L280 


624F:A9 

02 


291 

LDA 

42 


6251:80 

FE 

63 

292 

STA 

NP 


6254:4D 

OF 

64 

293 

LDA 

FF 


6257:20 

ED 

F0 

294 

JSR 

coirr 

;AVANZAMENTO CARTA 

6254:EE 

03 

64 

295 

INC 

PG 


625D: 98 



294 

TYA 


: SALVA SPOSTAMENTO 


Continua 
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fcippkz computar ine. 



Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 

Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G 8008 SE / 1005 / 1010 /1030 
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L’utilità di PRETTYLISTER non è 
però diminuita dal fatto che non sono 
contemplati anche i casi eccezionali. 
Infatti entrambe le versioni (sia in Ap¬ 
plesoft che in linguaggio assemblato- 
re) sono utili nel debugging di una rou¬ 
tine in Applesoft: qualsiasi errore di 
logica nel programma listato viene 
messo in evidenza da PRETTYLI¬ 
STER in modo che il listato appaia 
molto strano a cominciare dal punto 
nel quale si verifica il primo errore 
logico. 

Per il programma in Applesoft Ba¬ 
sic non esistono problemi di copiatura. 
Per il programma in linguaggio mac¬ 
china, chi possiede l’Assembler del 
Tool Kit può copiare il listato 2, men¬ 
tre chi non possiede l’Assembler e non 
ha pratica di linguaggio macchina può 
copiare l’equivalente listato 3 facendo 
riferimento all’articolo "Per chi comin¬ 
cia" pubblicato a pagina 117. Al termi¬ 
ne della copiatura il listato 3 va salvato 
con BSAVE PRETTYLISTER. OB- 
J,A$6000,L$471. 

Come funzionano 

Per riferimento del lettore ecco un 
sommario linea per linea di quel che fa 
il PRETTYLISTER. 

63000—63020 Inizializza e legge en¬ 
tro la matrice TK$ i caratteri ASCII 
per i token. 

63030 Controlla se fine programma. 

63040 Forma il numero di linea e 
inibisce il listato del PRETTYLI¬ 
STER stesso. 

63050 Inizializza lo spostamento 
nella linea tokenizzata. 

63060 Legge con PEEK il carattere 
seguente dalla linea tokenizzata e con¬ 
trolla se è a fine linea. 

63070 Mette il carattere non token 
nella linea di output (stringa CD$). 

63080—63090 Mette l’equivalente 
ASCII del token nella linea di output e 
aggiunge uno spazio dopo l’ultimo ca¬ 
rattere. 

63100 Imposta il flag quando vengo¬ 
no incontrate le virgolette. 

63110 Controlla se ci sia un segno di 
due punti non racchiuso fra virgolette 
o un token per THEN; se viene trova¬ 
to l’uno o l’altro stampa la linea di 
output. 

63120—63130 Controlla se ci sia il 
token per IF e per FOR rispettivamen¬ 
te e incrementa il numero degli IF- 
/FOR incontrati. 

63140 Controlla se ci sia il token per 
NEXT e decrementa il numero delle 
combinazioni IF-THEN/FOR- 
NEXT. 


625E:48 



297 


PM 



625F:20 

09 

62 

298 


JSR 

PAGER 

iSTAMPA NUMERO PAGINA 

6262:48 



299 


PLA 


' jRIPRISTlNA SPOSTAMENTO 

4263:A8 



300 


TAY 



6264:60 



301 

L280 

RTS 



6245:AD 

OF 

64 

302 

L290 

LDA 

FF 


6268:20 

ED 

FD 

303 


JSR 

COUT 

:AVANZAMENTO CARTA ALLA FINE 

626B:A9 

00 


304 


L0A 

«0 

(DISATTIVA LA STAMPANTE 

4260:20 

95 

FE 

305 


JSR 

0UTP0RT 


6270:60 



306 


RTS 



6271: 



307 

• 




4271 : 



308 

jtlETTE 

li CARATTERE NELLA LINEA DI OUTPUT 

4271 : 



309 

Èhm 




4271:AE 

F3 

63 

310 

LDX 

CURS0R 

; POSI2IONE CORRENTE LINEA DI OUTf 

6274:90 

70 

64 

311 


STA 

LINE.X 


6277 :EE 

F3 

63 

312 


INC 

CURS0R 


627A:60 



313 


RTS 



4278: 



314 

j 




6278: 



315 

jCERCA 

NELLA TAVOLA DEI TOKEN 

427B: 



316 

;A IL 

REGISTRO CONTENENTE IL TOKEN 

4278: 
4278:8C 

06 

64 

317 

318 

Ìettok 

STY 

SAVY 

iSALVA Y 4 X 

627E:8E 

05 

64 

319 


STX 

SAVX 


428!:A0 

00 


320 


LDY 

40 


6283:48 



321 


PM 


: SALVA TOKEN 

6284:A9 

DO 


322 


LDA 

4>TKADA 

(TAVOLA A DEI TOKEN 

6284:85 

F9 


323 


STA 

CURTAB 

6288:A9 

DO 


324 


LDA 

1KTKADA 


428A:85 

FA 


325 


STA 

CURTAB*1 


428C: 68 



324 


PLA 


jRICEVE IL TOKEN 
(DISATTIVA IL BIT ALTO 

628D:29 

7F 


327 


AND 

447F 

428F:8D 

F4 

63 

328 


STA 

CURT0K 

6292:F0 

25 


329 


8E0 

F01MDT 

; PRIMO TOKEN 

6294:C9 

3A 


330 


CMP 

44 3A 

; IN QUALE TAVOLA SI TROVA IL T0KI 

6294:30 

12 


331 


mi 

ATABLE 

|E' NELLA TAVOLA 'A 1 

4298:48 



332 


PM 



6299:A9 

CB 


333 


LDA 

4/TKADB 


4298:85 

F9 


334 


STA 

CURTAB 


6290:A9 

DI 


335 


LDA 

4<TKADB 


629F:35 

FA 


336 


STA 

CURTAB*1 

•.INIZIO DELLA TAVOLA B 

62A1 :68 



337 


PLA 



62A2:38 



338 


SEC 



62A3:E9 

3A 


339 


SBC 

44 3A 


62A5:8D 

F4 

63 

340 


STA 

CURT0K 


62A8:F0 

OF 


341 


BEQ 

F0UNDT 


62AA:AE 

F4 

63 

342 

ATABLE 

LDX 

CURT0K 


62AD:B1 

F9 


343 

C0NTIN 

LDA 

(CURTAB),Y 

(RICEVE IL BYTE CORRENTE 

62AF: 30 

04 


344 


BMI 

8RT0K 

;C0NTROLLA=BYTE FINALE DEL TOKEN 

62B1:C8 



345 


1NY 



62B2:4C 

AD 

62 

346 


JMP 

C0NTIN 


4285:C8 



347 

BRT0K 

1NY 



42B6:CA 



348 


DEX 


(DIMINUISCE IL NUMERO DEL TOKEN 

62B7:D0 

F4 


349 


8NE 

C0NTIN 


62B9:AE 

F3 

63 

350 

F0UNDT 

LDX 

CURS0R 


42BC:B! 

F9 


351 


LDA 

(CURTAB) ,Y 


62BE: 90 

70 

64 

352 


STA 

LINE,X 


Ó2C1:08 



353 


PHP 


62C2:E8 



354 


INX 



42C3:C8 



355 


INY 



42C4:EE 

F3 

63 

354 


INC 

CURS0R 


62C7:28 



357 


PLP 



62C8:10 

EF 


358 


BPL 

F0UNDT 


62CA:A9 

20 


359 


LDA 

#420 

(METTE UN SPAZIO DOPO IL TOKEN 

62CC: 90 

70 

64 

360 


STA 

LINE,X 


62CF:EE 

F3 

63 

36! 


INC 

CURSÓR 


62D2.-AE 

05 

64 

342 


LDX 

SAVX 


62D5:AC 

06 

64 

363 


LDY 

SAVY 


6208:60 



364 


RTS 



62D9: 



365 

j 




4209: 



366 

iSTAMPA NUMERO PAGINA 


62D9: 



347 

faGER 




42D9:A2 

44 


368 

LDX 

470 


6208:20 

4A 

F9 

369 


JSR 

PRLB2 

(STAMPA 7C SPAZI VUOTI 

62DE:AD 

03 

64 

370 


LDA 

PG 


42E1:8D 

FC 

43 

371 


STA 

LO 


62E4:A9 

00 


372 


LDA 

40 


62E6:80 

F5 

43 

373 


STA 

HI 


42E9:20 

10' 

63 

374 


JSR 

C0NJL 

(CONVERTE NUMERO PAGINA IN ASCII 

62EC:A0 

04 


375 


LDY 

44 

(MEMORIZZA NUMERO PAGINA IN 

42EE:A2 

02 


374 


LDX 

42 

i’PAGEN* 

62F0:B9 

OA 64 

377 

ST0RPG 

LDA 

ANSU.Y 


62F3:9D 

22 44 

378 


STA 

PAGEN.X 


62F6:88 



379 


DEY 


42F7:CA 



380 


DEX 




Continua 
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f^cippkz computar 


Gruppo 

— QmpuShap 


Apple Ile 


Macintosh 


Apple II q 


monitor Ile e supporto 
Disk drive aggiuntivo, 
Mouse. 


512K RAM 


128K RAM, 80 colonne 
Duodisk 



Omaggio: stampante da 8", 
grafica a colori. 


Omaggio: stampante grafica 

da 8", bidirezionale, 
120 cps, 

oppure accessori di 
uguale importo. 




Omaggio: monitor 12" 
a fosfori verdi 



8 cassette originali, 

2 libri in italiano, 
supergaranzia Rebit. 

£. 365.000 iva inclusa 


SPECTRAVIDEO 

sindair - 

Qz Commodore 
ricipplG computar 

olivelli 


ROMA 


• Via Nomentana 265/273 
Tel. 8450078 

• Via L. Bonincontri 105/107 
Tel. 5140792 

• Via Famagosta 33 

Tel. 385408 


Ulteriori informazioni saranno fornite presso i punti vendita. 

































62F8: CO 

01 

38! 


CPY 

#1 

<42FA : DO 

F4 

382 


BNE 

ST0RPG 

42FC:A9 

08 

383 


LOA 

48 

42FE:8D 

02 44 

384 


STA 

N8RBYT 

4301:A9 

10 

385 


LOA 

4 > PAGE 

4303:85 

FB 

384 


STA 

A0LPRT 

4305:A9 

44 

387 


LOA 

4<PAGE 

4307:85 

FC 

388 


STA 

ADLPRT+1 

4309:20 

79 43 

389 


JSR 

PRLINE 

4300:20 

8E F0 

390 


JSR 

CR0UT 

630F:40 


39! 


RTS 


4310: 


392 

J 



4310: 


393 

{CONVERTE HI 4 LO IN ASI 

4310: 


394 

[MEMORIZZA IL RISULTATO 

4310: 


395 

èOHJL 



4310:A2 

04 

394 

LDX 

44 

4312:A9 

30 

397 


LDA 

4*30 

4314:9D 

OA 44 

398 


STA 

ANSU,X 

4317:CA 


399 


DEX 


4318:A9 

20 

400 


LOA 

4120 

431A:9D 

OA 44 

401 

C2 

STA 

ANSW,X 

43!D;CA 


402 


OEX 


431E:10 

FA 

403 


BPL 

C2 

4320:E8 


404 


INX 


4321:A0 

00 

405 


LDY 

40 

4323:89 

11 44 

404 

G0N8 

LDA 

NUMS.Y 

4324;F0 

3D 

407 


BEO 

BD0N 

4328:38 


408 

G00N 

SEC 


4329 :AD 

FC 43 

409 


LDA 

LO 

432C:F9 

Il 44 

410 


SBC 

NUMS.Y 

432F : 43 


411 


PHA 


4330:03 


412 


1NY 


4331:AD 

F5 43 

413 


LOA 

HI 

4334:F9 

11 44 

414 


SBC 

NLMS.Y 

4337:90 

27 

415 


BCC 

NEXA 

4339:80 

F5 43 

414 


STA 

HI 

4330:48 


417 


PLA 


4330:80 

FC 43 

418 


STA 

LO 

4340:88 


419 


DEY 


4341:BD 

OA 44 

420 


LDA 

ANSW.X 

4344:09 

20 

421 


CMP 

4120 

4344:00 

13 

422 


BNE 

1NCT 

4348:A9 

30 

423 


LDA 

4130 

434A:90 

OA 44 

424 


STA 

ANSW.X 

4340:8A 


425 


TXA 

434E: 48 


424 


PHA 


434F:A9 

30 

427 


LOA 

4130 

4351:E8 


428 

LP2 

INX 


4352:90 

OA 44 

429 


STA 

ANSW.X 

4355:E0 

04 

430 


CPX 

44 

4357:90 

F8 

431 


BCC 

LP2 

4359:48 


432 


PLA 


435A:AA 


433 


TAX 


4358 : FE 

0A 44 

434 

1NCT 

INC 

ANSW.X 

435E: DO 

C8 

435 


BNE 

G00N 

4340:08 


434 

NEXA 

INY 


4341:48 


437 


PLA 


4342:E8 


438 


INX 


4343:00 

BE 

439 


BNE 

G0N8 

4345:40 


440 

BD0N 

RTS 


4344: 


441 

l 



4344: 


442 

: STAMPA 5 SPAZI 

4344: 
4344:A2 

05 

443 

444 

JuTSSP 

LOX 

45 

4348:20 

4A F9 

445 


JSR 

PRLB2 

6348:60 


444 


RTS 


4340: 


447 

; 



4340: 


448 

: STAMPA ■JN" 

SPAZI 

4340: 
4340:AE 

F9 43 

449 

450 

fasPACE 

LDX 

JN 

434F:EC 

00 

451 


CPX 

40 

4371:00 

02 

452 


BNE 

PRSPAC1 

4373:A2 

0! 

453 


LOX 

41 

4375:20 

4A F9 

454 

PRSPAC1 

JSR 

PRLB2 

4378:40 


455 


RTS 


4379: 


454 

J 



4379: 


457 

iSTAMPA LA LINEA 

4379: 


458 

• 



4379:48 


459 

PRLINE 

PHA 


437A:98 


440 


TYA 


4378:48 


441 


PHA 


4370:A0 

02 44 

442 


LDA 

NBRBYT 

437 C :F0 

15 

443 


BEO 

0LTTCR 

4381:A0 

00 

444 


LDY 

40 


; STAMPA NUMERO PAGINA 


[SALVA Y 4 A 


[QUALCHE LINEA DA STAMPARE? 
;NO=>INVIA CR 4 RETURN 


Continua 


63150 Incrementa lo spostamento al 
byte seguente in memoria, e salta in¬ 
dietro per farne la lettura con PEEK. 

63160— 63170 Stampa o il numero di 
linea, se non è stato già stampato, o 
cinque spazi vuoti se è stato stampato. 

63180 Diminuisce il numero degli 
spazi di cui rientrare se è stato incon¬ 
trato un NEXT. 

63190 Calcola il numero degli spazi 
per il rientro della linea di output. 

63200 Controlla se la lunghezza del¬ 
la linea di output, compreso il rientro, 
superi la lunghezza massima di linea; 
in caso affermativo viene fatto un salto 
a linea 63230. 

63210—63220 Stampa la linea di 
output, compreso l’opportuno nume¬ 
ro di spazi da usare per il rientro, e 
RETURN. 

63230—63240 Trova un posto in 
CD$ al quale spezzare la linea per la 
stampa. 

63250— 63260 Stampa la porzione di 
CD$ che sta su una linea, poi reimpo¬ 
sta CD$ alla porzione non stampata e 
salta indietro per stamparla. 

63270— 63280 Incrementa il numero 
delle linee stampate e, se questo nu¬ 
mero supera la lunghezza della pagi¬ 
na, invia l’avanzamento del modulo e 
stampa un nuovo numero di pagina. 

63290 Invia l’avanzamento del mo¬ 
dulo alla fine del listato, disattiva la 
stampante e visualizza sullo schermo il 
messaggio di completamento. 


Applesoft 
e assemblatore 

La versione in Assembler del 
PRETTYLISTER visibile nel listato 2 
è una traduzione pressoché letterale 
del programma in Applesoft con le so¬ 
le eccezioni indicate qui sotto. 

I numeri di linea dell’Applesoft 
(sottratti di 63000) sono usati come 
label nella versione in linguaggio As¬ 
sembler per facilitare il confronto. Per 
esempio la linea 63030 diventa il label 
L30, la linea 63200 diventa L200 e così 
via. 

Come menzionato sopra, diverse 
parti del programma in Assembler dif¬ 
feriscono leggermente dalle corri¬ 
spondenti nella versione in Applesoft: 
innanzitutto i messaggi di inizializza- 
zione e di conclusione sono cambiati; 
in secondo luogo viene esplorata la 
tavola dei token per trovare la tradu¬ 
zione in ASCII di ciascun token quan¬ 
do viene incontrato nel programma. 

Per aumentare la velocità di esecu¬ 
zione la tavola dei token è stata divisa 
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EdiSoftec: nasce un nuovo 
editore di software... 




Avanzate esperienze software 
ed un’innovativa società finan¬ 
ziaria danno vita ad un" software 
publisher” che diventerà un 
punto di riferimento per il 
mercato italiano. 


...e subito offre 
programmi 
più utili e più facili 
per gli utenti italiani. 

Due accordi esclusivi consentono ad EdiSoftec di offrire i programmi migliori di 




Programmi innovativi, potenti e utili ma soprattutto facili per l’utente. 

Spalligli! 



Gli indispensabili strumenti di lavoro (agenda, 
archivio, calcolatrice, block notes, rubrica telefo¬ 
nica, accesso ai dischi) sempre a immediata 
disposizione, senza disturbare le elaborazioni in corso. 


TKfSolver 


Il primo vero “Centro Informativo” personale - potente e fles¬ 
sibile - per gestire con semplicità dati di qualsiasi tipo. 

In italiano, per le necessità italiane. 



Un "risolutore di equazioni” automatico basato 
su concetti di intelligenza artificiale. 

Un amico e un consigliere per chi affronta dei problemi esprimibili in 
equazioni, dal calcolo di ^ strutture, al progetto meccanico, alla 

matematica finanziaria. / ° a 


EdiSoftec S.p.a.- Corso S. Maurizio, 79 



na\ cotriP^ let 


10124 Torino-Tel. (Oli) 839.64.45-6-7 


KOLMAR 








■Hi 




in due parti logiche, ognuna delle qua¬ 
li contiene press’a poco lo stesso nu¬ 
mero di byte. L’equivalente ASCII di 
ciascun token viene trovato sulla base 
del fatto che l’ultimo byte della tradu¬ 
zione ASCII ha il bit alto "on", mentre 
è "off' in tutti gli altri byte. Ogni volta 
che viene incontrato un token nel pro¬ 
gramma in Applesoft il programma in 
linguaggio assemblatore determina, 
sulla base del valore del token, in qua¬ 
le metà della tavola dei token si trovi il 
suo equivalente in ASCII. Il valore del 
token meno 128 (186 se nella seconda 
metà della tavola dei token) è allora il 
numero dei byte il cui byte alto è "on" 
che devono essere saltati (contando 
dall’inizio dell’appropriata metà della 
tavola dei token) per trovare la tradu¬ 
zione in ASCII del token. 

Infine, invece di costruire ogni linea 
di output in forma di stringa prima di 
stamparla, questa viene costruita ca¬ 
rattere per carattere e immagazzinata 
in locazioni di memoria che comincia¬ 
no alla fine del programma in linguag¬ 
gio assemblatore. In questo modo nes¬ 
suna parte della routine in linguaggio 
assemblatore, o del programma in Ap¬ 
plesoft, è sovramemorizzata. Quando 
una linea di output è stata costruita, se 
è necessario, viene spezzata in seg¬ 
menti più piccoli e stampata utilizzan¬ 
do la routine di output dei caratteri del 
monitor (COUT). 


Le modifiche 

Se volete adattare le routine alle vo¬ 
stre necessità potete intervenire come 
segue nelle linee con numero superio¬ 
re a 63000 (nella versione Applesoft) o 
nei corrispondenti valori nella versio¬ 
ne in Assembler. 


6383:B1 FB 

965 0UTCHR 

LD4 

(ADLPRT),Y 


<5385:09 80 

966 

ORA 

#$80 


<538?:C8 

967 

INY 



5388:80 F8 53 

968 

STY 

J 


538B:20 ED FD 

969 

JSR 

COUT 


538E:AC F8 53 

970 

LDY 

J 


5391:00 02 59 

971 

CPY 

NBRBYT 


<5394:00 ED 

972 

BNE 

0UTCHR 

[RITORNO CARRELLO 

5395:20 8E FD 

973 OlITCR 

JSR 

CR0UT 

5399:58 

979 

PLA 



839A:A8 

975 

TAY 



839B:88 

976 

PLA 



8390:80 

977 

RTS 



539D: 

978 ; 




839D: 

979 : STAMPA 

INTESTAZIONE SUL VIDEO 

839D: 

839D :20 58 FC 

980 : 

981 T1TLE 

JSR 

HOME 

[PULISCE IL VIDEO 

83A0:A0 08 

982 

LDY 

«6 

53A2:20 8E FD 

983 OR 

JSR 

CR0UT 


8345:88 

989 

DEY 



5348:DO F4 

985 

BNE 

OR 


8348:42 08 

986 

LDX 

tts 


8344:20 94 F9 

987 

JSR 

PRLB2 


8340:A0 00 

988 

LDY 

#0 


834F:B9 34 89 

989 TI 

LD4 

NOTI CE,Y 


8382:08 

990 

INY 


5383:20 ED FD 

991 

JSR 

COUT 


8385:00 19 

992 

CPY 

#25 


83B8;D0 F5 

993 

BNE 

TI 


Ó3B4-.20 SE FD 

999 

JSR 

CRQUT 


8380:20 8E FD 

995 

JSR 

CROUT 


8300:42 0B 

996 

LDX 

#11 


8302:20 94 F9 

997 

JSR 

PRLB2 


5305:40 19 

998 

LDY 

#25 


630?:B9 34 69 

999 T2 

LD4 

NOTI CE,Y 


6304:08 

500 

INY 


63CB:20 ED FD 

501 

JSR 

COUT 


63CE:C0 28 

502 

CPY 

#93 


63D0 : DO F5 

503 

BNE 

T2 


<53D2 :20 8E FD 

509 

JSR 

CROUT 


<53D5 :20 8E FD 

505 

JSR 

CROUT 


6308:42 0E 

506 

LDX 

#19 


63D4 :20 94 F9 

507 

JSR 

PRLB2 


63DD:40 28 

508 

LDY 

#93 


63DF;89 34 59 

509 T3 

LD4 

NOTI CE,Y 


63E2:C8 

510 

INY 


63E3:20 ED FD 

51! 

JSR 

COUT 


63E6:C0 38 

512 

CPY 

#54 


63E8: DO F5 

513 

8NE 

T3 


63EA:A0 OD 

519 

LDY 

#13 


83EC:20 8E FD 

515 T9 

JSR 

CROUT 


83EF:88 

516 

DEY 



63F0 : DO F4 

517 

BNE 

T4 


63F2:60 

518 

RTS 



83F3: 

63F3:00 

520 ìuRSOR 

DFB 

0 

[PRIMA LOCAZIONE VUOTA NELLA LINEA 

63F9:00 

521 CURTOK 

DFB 

0 

[TOKEN CORRENTE 

83F5:Q0 

522 HI 

DFB 

0 

BYTE ALTO DEL NUMERO DI LINEA 

63F6:00 

523 IN 

DFB 

0 

NUMERO DEGLI SPAZI DA RIENTRARE 


Listato 
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PRETTYLISTER - ASSEMBLATO 



50E8- 

20 

12 

61 

4C 

0E 

61 

C9 

AD 

6130- 

64 

A4 

E8 

8E 

F6 

63 

4E 

F3 



















60F0- 

DO 

08 

EE 

FF 

63 

4C 

0E 

6! 

8188- 

63 

SE 

FB 

63 

AD 

F9 

83 

18 



















80F8- 

C9 

81 

DO 

08 

EE 

00 

64 

4C 

5190- 

6D 

FB 

83 

8D 

FD 

63 

CD 

10 

»8000 

647(1 
















8100- 

0E 

61 

CB 

82 

DO 

08 

49 

01 

6198- 

64 

F0 

02 

B0 

2F 

AD 

04 

64 









6070- 

45 

1D 

DO 

03 

4C 

65 

62 

40 

6108- 

8D 

0! 

64 

CE 

00 

64 

C8 

4C 

6140- 

CR 

01 

DO 

03 

20 

66 

63 

20 

6000- 

45 

68 

85 

1C 

45 

67 

85 

1B 

6078- 

32 

B! 

1B 

3D 

09 

64 

C8 

B! 

8110- 

85 

80 

AD 

08 

84 

C9 

FF 

DO 

8148- 

8C 

63 

AD 

FB 

63 

8D 

02 

«4 

6008- 

20 

90 

63 

40 

00 

31 

1B 

DO 

6080- 

•B 

8D 

08 

64 

40 

04 

B1 

1B 

5118- 

OD 

AD 

09 

64 

C9 

FF 

DO 

08 

61B0- 

45 

19 

85 

FB 

45 

14 

85 

FC 

6010- 

16 

C8 

B1 

!B 

DO 

11 

40 

00 

6088- 

DO 

1! 

8D 

FF 

63 

20 

12 

61 

8120- 

20 

86 

63 

4C 

56 

61 

AD 

08 

51B8- 

20 

79 

63 

49 

00 

8D 

F3 

63 

6018- 

8? 

28 

64 

C8 

20 

ED 

FD 

CO 

6090- 

45 

1D 

85 

1B 

A5 

1E 

85 

1C 

6128- 

84 

8D 

F5 

63 

AD 

09 

64 

8D 

61C0- 

20 

44 

62 

49 

70 

85 

19 

49 

6020- 

12 

DO 

F5 

20 

3E 

FD 

60 

49 

6098- 

4C 

83 

60 

C9 

80 

BO 

06 

20 

6130- 

FC 

83 

98 

48 

70 

10 

63 

40 

61C8- 

84 

85 

14 

60 

AD 

10 

84 

38 

6028- 

00 

A8 

99 

F3 

53 

C8 

CO 

tc 

6040- 

71 

62 

4C 

C3 

60 

48 

98 

48 

6138- 

00 

89 

04 

64 

09 

80 

C8 

8C 

61 DO- 

ED 

F9 

63 

8D 

FA 

83 

8C 

06 

6030- 

DO 

FB 

49 

70 

95 

19 

49 

64 

8048- 

AD 

F3 

83 

R0 

OE 

48 

88 

B9 

6140- 

F8 

83 

20 

ED 

FD 

AC 

F8 

83 

6! DB- 

64 

48 

81 

19 

C9 

20 

F0 

20 

8038- 

85 

1A 

49 

01 

20 

95 

FE 

49 

60BC- 

70 

64 

C9 

20 

F0 

05 

49 

20 

8148- 

CO 

05 

DO 

ED 

ob 

48 

49 

FF 

61E0- 

C9 

2B 

F0 

1C 

C9 

2D 

F0 

18 

6040- 

09 

20 

ED 

FD 

40 

00 

A9 

25 

60B8- 

20 

71 

82 

58 

48 

68 

48 

20 

6150- 

8D 

09 

64 

30 

98 

64 

AD 

0! 

61E8- 

C9 

2F 

F0 

14 

C9 

24 

F0 

10 

6048- 

64 

ce 

8C 

F8 

63 

20 

ED 

FD 

80C0- 

78 

62 

68 

C9 

22 

DO 

0B 

AD 

6158- 

64 

F0 

0E 

CE 

F6 

63 

CE 

F6 

<61 FC- 

C9 

2C 

Cfi 

OC 

88 

98 

C9 

00 

6050- 

AC 

F8 

83 

CO 

03 

DO 

EF 

40 

50C8- 

F7 

63 

49 

Oi 

8D 

F7 

53 

4C 

6160- 

63 

CF 

F6 

63 

49 

on 

8D 

01 

61F8- 

F0 

06 

8D 

FA 

83 

4C 

DA 

61 

8058- 

01 

8C 

03 

64 

C8 

37 

FE 

83 

50DD- 

DE 

81 

8D 

07 

64 

C9 

34 

DO 

6183- 

64 

8D 

09 

84 

AD 

F6 

63 

8D 

6200- 

AD 

04 

64 

C9 

01 

DO 

03 

20 

6080- 

20 

D? 

62 

40 

on 

B1 

!B 

85 

60D8- 

05 

AD 

F7 

63 

FD 

07 

AD 

07 

6170- 

F9 

63 

AD 

FF 

63 

18 

6D 

00 

6208- 

66 

63 

49 

01 

8D 

04 

64 

20 

6088- 

1D 

C8 

B! 

1B 

85 

!E 

DO 

07 

60E0- 

64 

C9 

C4 

DO 

09 

AD 

07 

64 

6178- 

64 

8D 

07 

84 

24 

18 

6D 

07 

6210- 

ir 

uw 

63 

AD 

FA 

63 

8D 

02 

64 
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63F7:00 

524 IO 

DFB 

0 


63F6:00 

525 J 

DFB 

0 


63F9:Q0 

526 JN 

DFB 

0 


43FA.-00 

527 K 

DFB 

0 


63FB: 00 

528 LC 

DFB 

0 

(LUNGHEZZA totale linea stampabile 

63FC : 00 

529 LO 

DFB 

0 

jBYTE BASSO DEL NUMERO DI LINEA 

63FD: 00 

530 LP 

DFB 

0 


63FE :00 

531 NP 

DFB 

0 

(NUMERO DI LINEE STAMPATO 

63FF.-00 

532 NI 

DFB 

0 


6400:00 

533 NF 

DFB 

0 


6401:00 

534 NS 

DFB 

0 


6402:00 

535 NBRBYT 

DFB 

0 

;NUMER0 DI BYTE DA STAMPARE 

6403:00 

536 PG 

DFB 

0 

(NLMERO PAGINA 

6404:00 

537 PB 

DFB 

0 


6405:00 

538 3AVX 

DFB 

0 


6406:08 

539 SAVY 

DFB 

0 


6407:00 

540 TEMP 

DFB 

0 


6408:00 

541 TH! 

D C B 

0 


6409:00 

542 TLO 

DFB 

0 


640A : 00 00 30 

543 ANSU 

DFB 

0,0,0,0 

,0 

640D: 00 00 





640F:0C 

544 FF 

DFB 

12 

(CARATTERE AVANZAMENTO MODULO 

6410:3C 

545 LL 

DFB 

60 

(LUNGHEZZA LINEA 

6411:10 27 E8 

546 NUMS 

DFB 

■t!0,J27.tE8.f3.*64.0.$A,0.1.0.0 

6414:03 64 00 





64!7:OAnOO 0! 





64iA:00 00 





64!C:3A 

547 PL 

DFB 

58 

(LUNGHEZZA PAGINA 

641D :D0 CI C7 

548 PAGE 

ASC 

'PAGE 

ì 

6420:05 A3 





6422:00 00 00 

549 PAGEN 

DFB 

0.0,0 


6425:38 B0 CE 

550 PRIMI 

ASC 

'8DN 


6428:CE CF A0 

551 ERMSG 

ASC 

'NO 

PROGRAM TQ LIST' 


6426:00 D2 CF 
Ó42E:C7 D2 C! 

6431:CD AO D4 
6434:CF AO CC 
6437:C? D3 D4 

643A:D0 D2 C5 552 NOTICE ASC 'PRETTYLISTER,VERSIONE ASM 
643D:D4 D4 D? 

6440 :CC C9 D3 
6443:04 C5 02 
6446:AC 06 C5 
6449:02 03 C9 
644C:CF CE 05 
644F;A0 CI D3 
6452 : CD 

6453:C3 CF DO 553 ASC 'COPYRIGHT (C) 1985' 

6456:09 02 C9 

6459:C7 C8 04 

645C:A0 A8 C3 

645F:A9 AO 81 

6462:B9 88 B5 

6465:C2 02 09 554 ASC 'BRYAN BROUN' 

6468 : CI CE AO 
646B.-C2 02 CF 
646E:D7 CE 

6470:00 555 LINE DFB 0 

**« SUCCESSFUL ASSEMBLY: NO ERRORS 


1) Se la scheda di interfaccia stam¬ 
pante non è nello slot 1 cambiate 
"PR#1" in "PR#S", dove S è il numero 
di slot della stampante a disposizione. 
Nella versione in Assembler cambiate 
il contenuto della locazione S603B 
esadecimale (24635 decimale) da "1" al 
numero di slot della propria stampan¬ 
te; 

2) Variabile FF = valore decimale 
del carattere di avanzamento del mo¬ 
dulo (la versione in Applesoft stampa 
CHR$ (FF) per emettere un avanza¬ 
mento del modulo, indicato come 12 
nel listato 2); 

3) Variabile PL = lunghezza della 
pagina (numero massimo delle linee 
stampate per pagina comprese 2 linee 
per il numero di pagina, indicato come 
58 nel listato 2); 

4) Variabile LL = lunghezza della 
linea (numero massimo dei caratteri 
stampati per linea, mostrato come 60 
nel listato 2). 

Entrambi i programmi funzionano 
bene con le stampanti EPSON 
MX—80, DMP e ImageWriter, e do¬ 
vrebbero girare anche con altre stam¬ 
panti parallele e seriali. 

Adesso non rimane che passare sul 
vostro Apple, digitare PRETTYLI- 
STER personalizzandolo secondo le 
vostre esigenze e finalmente godersi il 
piacere di guardare il listato delle vo¬ 
stre fatiche di programmatori senza 
più ansie e preoccupazioni per l’inevi¬ 
tabile lavoro di correzione e modifica 
dei programmi che avete in mente da 
tempo. Buon lavoro! 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- * 
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• Sicpack 

Si tratta di un pacchetto destinato ai progettisti che 
introduce un nuovo modo di intendere il lavoro al tavolo 
da disegno. L’elemento chiave delle nuove procedure di 
progettazione è certamente costituito da Macintosh e dalla 
possibilità di utilizzare il mouse. Sicpack della Softing è il 
software che permette il balzo in avanti con algoritmi che 
danno al progettista la possibilità di evitare la "traduzione" 
in uno schema matematico del progetto. In pratica questo 
programma, presentato recentemente con successo all’ul¬ 
tima edizione di Roma Ufficio, sfrutta le potenti capacità 
grafiche di Mac con il mouse per la stesura grafica di un 
progetto e, tenendo conto persino della normativa per 
l’edilizia in zona sismica, provvede a tradurre in termini 
matematici ciò che è stato inserito solo in forma grafica. 
Poi i calcoli vengono effettuati automaticamente con rela¬ 
tivo dimensionamento della parte strutturale. La grande 
potenza di Mac consente di avere automaticamente anche i 



GMT 

I 


Analisi di una struttura 


grafici qualitativi più interessanti come la deformata di una 
struttura. Per dare un’idea della potenza di questo pro¬ 
gramma basterà citare un esempio campione: una struttu¬ 
ra di circa 400 elementi viene risolta da Mac con Sicpack in 
poco meno di 4 minuti. Interessante inoltre la possibilità di 
zoommare su un particolare della struttura per modificarlo 
in parte o per "leggere" i dimensionamenti calcolati così 
come, in sede di definizione dei particolari della struttura, 
è possibile ottenere la specifica e il disegno del ferro nel 
calcolo del cemento armato per ogni trave o particolare 
zoommato. 

Per ulteriori informazioni rivolgersi alla Softing, via 
Reggio Calabria 6, Roma, telefono 06/4248732. 


• Multiplan 

Multiplan della Microsoft, il programma che permette 
di pianificare tutti gli aspetti operativi di un’azienda (inclu¬ 
sa "l’Azienda famiglia", per la quale lo si può usare allo 
scopo di impostare e gestire il bilancio familiare), è dispo¬ 
nibile adesso anche nella versione in italiano, che consente 
una maggiore facilità d’uso. Come è noto, Multiplan gesti¬ 
sce una serie di "fogli" elettronici dove l’utente può definire 
le fasi operative della sua azienda e, con opportune richie¬ 
ste di controllo, avere sempre sotto mano lo stato di avan¬ 
zamento di un lavoro particolare o il rapporto aggiornato 
in tema di bilancio o previsione di spesa. Si aggiunge alla 
grande potenza e versatilità di Multiplan anche la possibili¬ 
tà di "mettere sotto chiave" una serie di dati ritenuti riser¬ 
vati: ciò consente di aprire l’accesso al Macintosh a tutti 
coloro che hanno la necessità di inserire dati o ricevere 
informazioni nel loro lavoro, senza però rischio per il 
titolare di "mettere in piazza" le informazioni che ritiene 
riservate. 

Il programma è disponibile al prezzo di 638.000 Iva 
inclusa. J. Soft, Viale Restelli 5, Milano, telefono 
02/683797. 


• TK! Solverpack meccanica 

Questo package utilizza il programma TKISolver e con¬ 
tiene una serie di modelli di utilizzo nel settore di Ingegne¬ 
ria Meccanica. L’utilizzatore può servirsi della soluzione 
proposta nel package in modo globale oppure può modifi¬ 
care quelle espressioni che nel suo caso vanno cambiate. Il 
programma è da intendere sia come soluzione sia come 
impostazione generale che lascia aperta la possibiltà di 
personalizzazioni. Sono disponibili i seguenti modelli nel 
settore del calcolo ingegneristico: • torsione elastica di 
una trave fissa agli estremi • dispersione di calore • movi¬ 
mento di fluidi in condotte • analisi di sistemi idraulici • 
calcolo dei momenti di inerzia di vari tipi di sezioni • 
frequenze di un sistema meccanico in rotazione. Prodotto 
da Software Arts è distribuito in Italia da Edi-Softec, 
Corso S.Maurizio 79, Torino (telefono 011/8396445). Co¬ 
sta 120.000 lire. 
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••• iX Klanui'han 


"Ovunque mi compri 
sono garantito 
un anno, ma solo 

la SALS INFORMATICA 

mi assiste gratuitamente 
a casa". 


L'offerta è valida per 
tutti i sistemi APPLE 
venduti dalla 
SALS INFORMATICA, 
a Genova, a partire 
dal 31 marzo 1985. 
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• MacCFS 

Si tratta di un programma di archiviazione elettronica 
che permette di creare e mantenere schedari di diverso 
formato e dimensione con la stessa facilità con cui si può 
maneggiare uno schedario in carta. Il programma infatti 
propone dei "fogli bianchi" su cui si scrive semplicemente il 
campo che si desidera creare, seguito da : (due punti). Non 
è necessario specificare la lunghezza dei campi, dato che 
questa viene automaticamente ampliata con l’inserimento 
dei dati. Ogni scheda elettronica può disporre di ben 8 
"pagine" di video e sino a 128 campi. I dati vengono diretta- 
mente trasferiti su dischetto al solo comando di INSERI¬ 
MENTO in modo da limitare le possibili perdite di dati 
all’ultima scheda in compilazione. Le funzioni di ricerca 


possono fornire la selezione delle schede in base ai requisi¬ 
ti richiesti con la possibilità di memorizzare su una scheda i 
più comuni criteri di selezione per una maggiore facilità 
d’uso. Particolare cura è stata posta dalla Cominfor di 
Torino, autrice di MacCFS, nella compattazione dei dati in 
memoria: un comune disco di Macintosh ha la capacità di 
circa 4500 schede create con MacCFS. 

Il programma è disponibile a 358.000 Iva inclusa. J. 
Soft, Viale Restelli 5, Milano, telefono 02/683797. 


• MACPREV 

Permette la gestione di un archivio articoli o prestazioni 
con una descrizione fino a 150 caratteri. Tale archivio è 

























S oMt H E R nIE u R O p e a n|C o m p U T E R 


La S.E.C. ha la più ampia gamma disponibile per Mac di tutta Europa. 




Technologies Corporation 


Con questo programma Macintosh "fotografa" qualun¬ 
que oggetto o persona. Voi, poi, potete intervenire grafi¬ 
camente e tagliare, aggiungere, ingrandire, scontornare, 
rimpicciolire, incorniciare, ruotare, schiarire, ombreggia¬ 
re... (vedi Applicando n. 15, Aprile 1985). Lire 850.000 + 
iva. 

Novità alla S.E.C. per Mac 

• Interfaccia stampa per Mac. Per collegare il vostro Macintosh 
a tutte le stampanti. Lit. 180.000. 

• Thunderscan: (Thunderware). Per mezzo della ImageWriter 
trasmette qualsiasi disegno al Mac. Lit. 735.000 + iva. 

• Mac Speli Right. Controlla l'esatta grafia delle parole. Lit. 
330.000. 

• Fact Finder. Database dinamico. Lit. 417.000 

• Mac Tilt. Per basculare il monitor del Mac. Lit. 300.000. 

Per Apple //e - ///: 

PK A80-// Universal Parallel Printer Interface. Collega i vostri 
Apple a qualunque stampante. Lit. 750.000. 

UPGRADE SERVIZIO 


Warner Software 
Lit. 409.800 + iva 

• L’unico programma che trasforma il Mac in una segre¬ 
taria ideale ordinando in modo perfetto la vostra scriva¬ 
nia. 

• Organizza le lettere e i rapporti senza restrizione di 
formato, in ordine cronologico o alfabetico. 

• Scrive e corregge anche i memorandum e le lettere (ci 
sono 25 lettere d’affari standard già incluse). 

• Contiene un combinatore telefonico che ricerca i nume¬ 
ri dei vostri clienti direttamente dalla vostra rubrica. 

• E' anche un calcolatore che permette, oltre ai normali 
calcoli, di risolvere automaticamente fino a 26 variabili 
(sono già incluse 25 formule finanziarie tra le più comuni). 

• Gestione appuntamenti e scadenze con suoneria. Qua¬ 
lunque sia il lavoro che state facendo, Desk Organizer vi 
ricorda delicatamente un appuntamento. 



Servizio esclusivo S.E.C. per trasformazione Macintosh da 1 




The only software program that 
turns your Macintosh into a 
complete desk management System! 


O 

A Warner 



Importante novità per i rivenditori Southern European Computer: 


BOLLETTINO SOFTWARE 

Da oggi potete collegarvi, via modem, con la rete TINA e 
avere: Tutte le informazioni sul software e sull’hardware. 
L’elenco dei prodotti più venduti. Il catalogo con i prezzi 
aggiornati. Fare i vostri ordini in tempo reale. Ricevere 
informazioni tecniche. Avere e dare informazioni fra dea- 


lers sullo stoccaggio di magazzino ed effettuare eventuali 
compensazioni. Verrà concesso uno sconto del 5% sul 
primo ordine eseguito dopo l'allacciamento alla rete. Per 
informazioni rivolgersi a Southern European Computer, 
via Molino 2, 22030 Montorfano (CO), telefono 
031/200621. Telex 340422 WTCSEC. 


^EDQDBBn ESDBSBSQD SSDBQBES 


Q Software 


via Molino 2. 22030, Montorfano (Como). Telefono (031) 200621. Telex 340422 WTC-I-SEC 


Con un modesto sovrapprezzo 
consegne a domicilio in 48 ore. 
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Corso Italia 149 - 34170 GORIZIA - Tel. 0481/30909 


Per il uostro Mac 



Presenta ‘T kundexSc a.n 

Da oggi potete trasformare qualunque 
scritta o disegno in un documento grafico 
ad alta risoluzione per il uostro 
Macintosh. 

Basta inserire il documento da riprodurre 
nella Imagemriter e Thunderscan leggera' 
l'immagine fornendoui un documento 
MacPaint che potrete ancora elaborare. 

Gli originali possono essere a colori o in 
bianco e nero e Thunderscan li riprodurrà' 
a oltre 200 punti per pollice ed in 32 
tonalità' di grigio. Sara 1 inoltre facile 
ingrandirli o rimpiccolirli, controllarne il 
contrasto e la luminosità'. 

Thunderscan non necessita di luci o 
telecamere. Basta inserire Thunderscan 
al posto della cartuccia del nastro e uia... 

Se auete preso il Mac almeno in parte per 
le sue capacita' grafiche, ora ne farete 
pienamente uso. 

Trouate Thunderscan direttamente alla 
Elcom o presso il uostro riuenditore Rpple 
di fiducia. Chiedete il prezzo, sara' una 
piaceuole sorpresa. 

Rlla Elcom trouerete inoltre tutti gli 
accessori di qualità' per il uostro Rpple. 


RIUENDITORE 

AUTORIZZATO 



appiè 





modificabile in funzione di variazioni di prezzo sia per 
produttore sia per fornitore, con la possibilità di stampare 
listini sia generali sia condizionati da queste chiavi. Sulla 
base di questo archivio, permette la redazione di preventi¬ 
vi di fornitura con la possibilità di inserire o togliere impor¬ 
ti dal totale senza una loro visualizzazione sul preventivo 
finale. Attraverso il finder di Mac permette la creazione di 
un archivio preventivi. Nella gestione dell’archivio è possi¬ 
bile inserire sia costi di installazione che oneri accessori e 
prezzo di acquisto. Prodotto da Livinform, Via Roma 8, 
Livorno, (telefono 0586/803007) costa 490.000 lire Iva 
esclusa. 


• Analisi sismica 2.0 

Il programma calcola gli sforzi taglianti sui pilastri di 
strutture in c.a. per tener conto dell’azione sismica in 
ossequio alla normativa vigente con gli aggiornamenti re¬ 
lativi alle nuove norme tecniche DM 19/6/1984. E’ possibi¬ 
le risolvere strutture comunque complesse composte da 
pilastri, nuclei di irrigidimento come trombe di scale, 
ascensori, eccetera e pareti di taglio senza alcuna limitazio¬ 
ne sulla posizione degli elementi stessi e per un qualsiasi 
numero di travi colleganti i pilastri comunque disposte e 
inclinate. I limiti massimi sono di 99 elementi irrigidenti 
per piano fino a un massimo di 10 piani. Visualizza grafica- 
mente gli impalcati dell’edificio esaminato con possibilità 
di stampa. Tre diversi formati di stampa per la relazione di 
calcolo. Archiviazione permanente del calcolo per succes¬ 
sive aggiunte o modifiche. Possibilità di passaggio di dati e 
risultati al programma di risoluzione dei Telai Piani nel 
caso di strutture almeno parzialmente regolari in modo 
tale da evitare successivi interventi da parte dell’operato¬ 
re. Archiviazione fino a 18 diverse tipologie di carico. E’ 
prodotto da Microsoftware, via Menicucci 1, Ancona, (te¬ 
lefono 071/22380) e costa 500.000 lire iva esclusa. 


• Sales Edge 

Ideale per i rappresentanti e per i venditori in genere, 
Sales Edge aiuta a presentare un qualsiasi prodotto a un 
qualsiasi cliente consigliando la migliore tecnica da adotta¬ 
re. Impostando particolari situazioni, le caratteristiche e le 
esigenze del compratore, il programma simula il caso ana¬ 
lizzato e ne studia, insieme all’utilizzatore, le tattiche di 
vendita migliori. Prezzo: 648.000 lire. Produttore: Human 
Edge Software. Distributore in Italia: Southern European 
Computer, Via Molino 2, Montorfano (CO). 


• Pc to Mac and back 

Letteralemente da Pc a Mac e ritorno, il programma 
consiste in un manuale e un dischetto che permettono di 
far comunicare tra loro il Pc Ibm con il Macintosh. 

Con possibilità di impiego anche come terminale per 
accedere a servizi come Tina o Euronet, il programma 
richiede un disk drive e una porta seriale RS-232 e, per 
collegarsi ad eventuali reti esterne, un modem. Costa 
234.000 lire, è prodotto dalla Dilithium Press. In Italia si 
può richiedere alla Southern European Computer, Via 
Molino 2, Montorfano (CO). 
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ALLA SCOPERTA 
DELL’APPLE Ile 

di F. WAGNER DOBLER 


APPLE MACINTOSH: 

IL COMPUTER MAGICO 

di E.S. CONNOLLY e P. LIEBERMAN 


Il libro, rivolto ad utilizzatori professionali e 
hobbistici, espone in dettaglio le disponibilità e 
le capacità dell'Apple He, incluso il suo 
hardware, le sue periferiche, le sue possibilità 
grafiche e l'uso di elaboratori di testo, tabelloni 
elettronici ed altre utilità software Nel testo è 
compreso un esame delle specifiche hardware 
della macchina, un'analisi della documentazione 
ed una parte dedicata all implementazione dei 
linguaggi di programmazione BASIC, LOGO, 
PASCAL, PILOT ed assembler 65C02 
Il sistema operativo è trattato in dettaglio; cura 
particolare è stata dedicata al confronto fra 
l'Apple /fc e il suo predecessore Apple Ile 
Il presente libro costituisce un'inestimabile 
guida di riferimento per coloro che si 
propongono di acquistare l'Apple Ile e 
desiderano un obiettivo giudizio delle sue 
capacità, oppure per coloro che. già 
possedendolo, sono interessati ad ulteriori 
informazioni pratiche sulle sue possibili 
applicazioni 
Pag. 144 

Cod. 9301 L. 16.000 


IL 68000: PRINCIPI 
E PROGRAMMAZIONE 

di LED J. SCANLON 

Questo libro illustra le caratteristiche del 
microprocessore 68000 e fornisce le nozioni 
fondamentali per la sua corretta 
programmazione. 

In particolare venaono illustrati: 

- il Cross MacroAssembler della Motorola 

- il set di istruzioni del 68000 con i suoi 14 
modi di indirizzamento 

- le potenti istruzioni aritmetiche per 
moltiplicazione e divisione 

- programmi esemplificativi per la gestione 
delle liste e delle tavole numeriche 
Vengono inoltre illustrate le funzioni dei 64 
piedini del 68000 IC e i supporti periferici 
interfacciabiii con esso Conclude il volume una 
breve descrizione degli altri processori 
appartenenti alla famiglia del 68000, con 
particolare riguardo per il 68008, utilizzato nei 
personal computer dell'ultima generazione. 

Pag. 256 


L. 20.000 


In un unico volume uno sguardo all'Apple 
Macintosh: lo strumento che farà salire 
vertigginosamente la vostra produttività nel 
lavoro. 

Nel libro troverete: 

- Come si può rendere più efficiente un 
calcolatore da tavolo 

- Come il MacPensiero incrementa la 
produttività 

- Che cosa sta dietro alle MacWindows 

- Come ottenere il massimo dal Mouse 

- L'uso di MacWriter, MacPaint e di tutti gli altri 
MacTooIs 

- Quale altro software è disponibile per il 
Macintosh 

- Come funziona il microprocessore 68000 

- Tutto sui drives per mini-floppy. 

Inoltre imparerete come comunicare con il 
Macintosh e come creare menù che parlino da 
soli. 

Se ne possedete un esemplare o se intendete 
acquistarne uno, questa guida costituirà il 
vostro indispensabile e sapiente amico. 

Pag. 192 

Cod. 9350 L. 20.000 


LA PRIMA VOLTA 
CON APPLE 

di R. COOK • T. HARTNELL 

Se non avete mai programmato un computer 
prima d'ora e vi piacerebbe imparare in poche 
ore, ecco il libro adatto a voi. Probabilmente già 
disporrete di gran parte, se non di tutto, del 
software che vi serve; ma vi sarete anche resi 
conto che è bene saperne un po' di più, magari 
per far colpo sugli amici, insegnare qualcosa ai 
vostri bambini o creare da soli qualche 
programma per lavoro o per gioco. Questo libro 
vi spiega come far tutto ciò in pochissimo 
tempo. All'inizio vedremo i pochi comandi che 
servono per lavorare con il disco di sistema, 
cioè per dare il via al computer. 

Il tutto avverrà sotto il vostro controllo a partire 
dalle prima pagina del primo capitolo del libro. 
Passeremo poi in rassegna i termini più 
importanti per la programmazione e alla fine, 
avrete in mano una piccola raccolta di 
programmi che vi terranno occupati con Apple 
per qualche settimana. 

Pag. 100 
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Per chi 
comincia 



N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple II. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull’inglese (per chi possiede 
Apple //e e Ile), dovreste veder comparire 
sullo schermo il segno chiamato curso¬ 
re, o prompt, in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l’Apple- 
soft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l’articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizializzare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri—inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso); ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all’inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d’una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
die è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall’ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e l’ultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SA VE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null’al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple Ile o un Ile assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell'ultima parola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 
20 e 30. 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SAVE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 


computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po’ più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l’errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LOAD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. Il computer vi segnalerà, riga per 
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per i tuoi problemi di scrittura... 


UT IL WRITER //e (.,.//c) 

Compilazione guidata lettera - Circolari personalizzate - Collegamento al Personal Data 
Base - 22 modi di scrittura - Creazione testata lettera - Utilizzazione set stampanti - 
Caricamento di un set alternativo per le stampanti Apple - Stampa su carta bollata - 
Schermate d'aiuto in italiano - Vari programmi d'utilità. | j qqq + IV’A 


PRO WRITER //e (...//e) 

Stampa proporzionale a 10 passi diversi con stampanti ad aghi Apple - Sillabica- 
zione italiana a fine riga (tutte le stampanti) - Caricamento in memoria e uso di 
10 set alternativi per le stampanti ad aghi Apple - Comandi di controllo per le 
stampanti Apple ed Epson. 95.000 + IVA 


BASIC WRITER // 

Collegamento di Apple Writer // all'ambiente Basic per program¬ 
mi di utilità e calcolazioni nel testo - Super-calcolatrice in Apple 
Writer // - Programma Graphic Writer // per stampare disegni o 
grafici integrabili al testo (stampanti ad aghi Apple ed Epson) - 
Funzione di compattamento video, di sovrapposizione continua e di 
scelta del profilo di tabulazione - Perfetto adattamento di Apple 
Writer // all’Apple //c - Estensione al programma PRO WRITER //e 
(per chi già lo possiede). L. 00.000 + IVA 

BASIC WRITER + PRO WRITER L. 195.000 + IVA 



trasformano Apple Writer // nel più potente sistema di Word Processor 

I tre programmi sono compatibili tra loro e richiedono la seguente configurazione: 

Apple //e (o //c) - Scheda 80 cl. + 64K - 1 Drive (2 Drive con Util Writer //e) - Programma Apple Writer // (Dos 3.3) 


...e per la sicurezza 

CATENACCIO 2.1 (Dos 3.3) 

Il nuovo e rivoluzionario sistema di protezione software, basato sui più recenti studi del 
settore, che rende inabile qualsiasi programma di copia fino ad ora mai realizzato. 

L. 170.000 + IVA 

Software italiano dello STUDIO PEDRAZZINI 

In vendita presso i rivenditori Apple o direttamente da: 


POUSISTEMI s.r.i. 

Via Derna, 19 - 20132 MILANO 
Tel. (02) 2842890 - 2829917 - 2843158 




rivenditore autorizzato APPLE COMPUTER 






















































































































riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l’er¬ 
rore commesso e ribattere correttamente 
l’intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo all’interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l’Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po’ la lingua madre dell’Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L’As¬ 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l’assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L’Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL-151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300: A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il ’300’ indica 
una locazione di memoria e i due punti 
dicono all'Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308- 4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 



1 

•RINGER PROGRAM 


2 

ORG 

$300 


3 

BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

#$5 

0302 : 20 DD FB 

5 

LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 

END RTS 



Listato 3 


Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL-151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0D3 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300:A2 05 Return 
302:20 DD FB Return 
305:CA Return 
306:FO 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra i 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l’intero listato, 
schiacciate CTRL-C Return per tornare al 
livello BASIC indicato dal segno ’]’. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SA VE, i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 



versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER, AS300, L$C 


dove AS300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All’inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l’indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
l’indirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell’usci¬ 
ta del Ile) sia per il ProDOS (sistema opera¬ 
tivo fornito con il /le). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAD. 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT FIELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere, prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l’uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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il punto grafico - osnago 



Quattro milioni di dischetti ODP venduti 
in Italia dal 1978 fanno del dischetto ODP 
un best seller dell’Informatica. Un suc¬ 
cesso determinato dall’alta affidabilità 
del dischetto ODP, risultato della tecno¬ 
logia edella ricerca più avanzata. Per que¬ 
sto scegli un best seller, scegli ODP. ■ 


datamafic 

TRATTA BENE HTUO CALCOLATORE 


DATAMATIC S.p.A. 

20124 Milano - Via Volturno, 46 - Tel. (02) 6073876 (5 linee r.a.) 

Filiale ROMA: Via Città di Cascia, 29 ■ Tel. (06) 3279987 (4 linee r.a.) 









applicando 

si trova anche qui 

Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando, 
acquistare una copia, cercare un numero arretrato... 


LOMBARDIA 

Almé(BG) 

Elcod, Viale Italia 45/A 
A ssago (MI) 

Basic Computers, Centro 
Commerciale Milano Fiori 

Bergamo 

Studio 15 srl, Via Quarenghi 60 
Il mondo dell’informatica, Via 
Pitentino 8 

Brescia 

Alfa computer. Via Bassi 26 
Brescia Computers srl, Via . 
Malta 12 

Il Computer srl, Via B. Croce 23 

L'Informatica srl. Piazza 
Vescovado 1 

Personal Data, via Brozzoni 4 

Como 

D.S.I. srl, ViaDottesio8 
Accaesse Informatica srl. Via 
Acquanera 46 

Gavardo (BS) 

Bit Shop, Via G. Quarena 120 
Lecco (CO) 

Computers Lecco snc. Via Nino 
Bixio 18/B 

Datamation, Via Turati 10 
Lissone (MI) 

Computerlandia, Via Martiri 
Libertà 103 

Milano 

A.G.Informatica srl. Via 
G. Sii va 49 

Communications Engineering, 
Piazza Firenze 4 
Deltron srl. Viale Gran Sasso 
50 


Edelektron srl, Corso 
Sempione 39 
Esprit, Via Bergamini 13 
Happy System, Piazza Diaz 6 
Information Technology, Via 
dei Bossi 7 

Alllnformatica Shop, Via 
Lazzaretto 2 

Macan sas. Via Broletto 39 
Microtech Sistemi, Via 
Bronzetti 20 
SH Computers srl. Viale 
Montenero 33 
Softec Computer, Viale E. 
Jenner23 

Monza (MI) 

ESI srl, Via Cavallotti 11 
Nikom Electronics, Via Asiago 
7 

Pavia 

M. A. S. H. Computer Systems, 
Strada Nuova 86 
Senna Gianfranco snc. Via 
Calchi 5 

Trezzano sul naviglio (MI) 
Personal computer shop. Via 
L.da Vinci 36 

Segrate (MI) 

Compusoft, Via Milano 2, 
Resid. Lago 

Varese 

IRPE srl. Via Morazzone 8 

LAZIO 

Roma 

Bit Computers, Via Giovanni 
Gastaldi 33 

Computer Center srl. Via Nizza 
48/52 

Computerart srl. Via Michele di 
Landò 41 


Computime srl, Viale Parioli 25 
Easy Byte. Via Giovanni 
Villani 24 

E.D.P. Market, Via E. Fermi 
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E.M. EUR Micro Computer 
srl. Viale C. Pavese 267 

5.1. G.E.E.I. srl. Via 
Nomentana 265-273 

5.1. PR.EL. srl. Via Pompeo 
Magno 94 

Roma EUR 

Bit Computers, Via F. 
Domiziano 10 

Viterbo 

Alfa Computer, Via Palmanova 
12/C 

VENETO 

Bassano del Grappa (VI) 

A Tre snc, Via Buonarroti 23 
Conegliano (TV) 

Computing Program, Via G. 
Piovesana 32 

Mestre (VE) 

Pacinotti sas, Via Torino 92 
Mirano (VE) 

Saving Elettronica, via Gramsci 
40 

Padova 

Capovilla & C. sas. Galleria 
Scrovegni 5 

Computer Service srl, Via 
Beethoven 3 
E.D.P. Sistemi srl. Via 
Borromeo 16 

Treviso 

A5 Computers srl. Borgo 
Cavour 37/A 


Venezia 

AZ Telemarket, Cannaregio 
5898 

Personal Computer, 
Cannaregio 

Verona 

ARMU srl. Via Teatro 
Filarmonico 3 

Esacompsrl, Via Roveggia43 
MOS 80 sas. Via Germania 21 

Vicenza 

Sevi sas. Via S. Agostino 87 
Villafranca (VR) 

Studio 4, Corso Vitt.Emanuele 
70 


PIEMONTE 
VALLE D'AOSTA 

Aosta 

Informatique sas, Av. Conseil 
des Commis 14 

Alba(CN) 

Centro computer. Via Paruzza 
2 

Biella (VC) 

Consul Computer srl, Via delle 
Rose 2 

Informatica Biella sas, Piazza 
S.Paolo 1/B 

Domodossola (NO) 

Nuova Elettronica, Via 
Giovanni XXIII68 

Novara 

SPA srl, Corso della Vittoria53 
Pinerolo (TO) 

Elaborazione Dati Pinerolo, 
Corso Piave 42 
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Torino 

A. B.Computer sas, Corso 
Grosseto 209 
Digitalsync snc, Corso 
Moncalieri 303 
Dimensione Personal, Via 
Bertela 22/e 

GE.NE.CA. srl, Via Bertela 5 
Hobby Elettronica, Via Saluzzo 
11/F-G-H 

Omicron Computerssnc, C.so 
Duca degli Abruzzi 14 
Pinto G.-Componenti elettr.. 
Corso Principe Eugenio 15 bis 
Tecnosystem Computer Shop. 
Via Beaumont 10 
Tekno Computers srl. Via 
Madama Cristina 31/c 

TOSCANA 

Borgo a Buggiano (PT) 

CO-DI snc. Via 24 Maggio 
117/119 

Firenze 

Anfrel Informatica sas, Via 
Masaccio 50 

Elettronica Cento Stelle srl, Via 
Cento Stelle 5/B 
Paoletti Ferrerò. Via il Prato 
40/42 R 

Pascal Tripodo Elettronica. Via 

B. della Gatta 26/28 
Soluzioni EDP srl. Corso dei 
Tintori 39R 

Massa 

Euro Computer sas. Piazza C, 
Bertagnini 4 

Piombino (LI) 

Centro Ufficio sdf. Via F. 

Ferrer 37/39 

Pisa 

Società Elettronica Tirrena, 

Via Fucini 20 

Pistoia 

Inter Systems, Via Pietro 
Mascagni 14 

Pistoia Frazione Margine 

CO-DI snc, Via I Maggio 20/22 
Pontedera (PI) 

Data Port srl. Via Brigate 
Partigiane 27 

S. Giovanni Valdarno (AR) 

I.C.S. srl, Via Garibaldi 46 

EMILIA ROMAGNA 

Bologna 

CEDA Minicompsrl, Piazza 

Aldrovandi 2/2 

Computer Systems, Via 

Ercoiani 10/D 

EDP Sistemi BO srl. Viale 

Pietramelara 61/F 

SERCOM, Via B. da Carpi 9/B 

Cesena (FO) 

SHC snc. Corso Cavour 157 


Ferrara 

Soc. Termomeccanica, Via 
Garibaldi 195 

Mazzacurati Claudio, Viale 
Cavour 186/188 

Tecnomeccanica, Via Garibaldi 
195 

Fidenza (PR) 

Archimede, Via Vito Aimi 2 
Fiorenzuola d’Arda (PC) 
Centro Computer, Corso 
Garibaldi 125/A 

Forlì 

A-Z Computer srl, Via Cignani 
7 

Kronos, Via Oreste Regnoli 30 

Modena 

Masetti Elettronica srl, Via 
Emilia Centro 211 

Reggio Emilia 
Computer Center srl. Via 
D.Alighieri4 
Esaprogetti, Via F. Filzi 2 

Rimini 

Computer Line, Via Coletti 61 
Scandiano (RE) 

Informatica System, Via Statale 
13/A 

Viserba di Rimini (FO) 
Computer Center, Via Pallotta 
25/A 

FRIULI VENEZIA 
GIULIA 

Pordenone 

Electronic Center snc. Viale 
Libertà 79 

Turriaco (GO) 

Tecno Power Elettronica, Via 
Marconi 19 

Udine 

BIT Computers, Via Pozzuolo 
107 

PS Elettronica sas. Via 
Tavagnacco 89/91 C.C. 

LIGURIA 

Genova 

Computer Center, Via San 
Vincenzo 129r 
SALS Informatica srl, via 
D’Annunzio 2/35 

Lavagna(GE) 

CR2 Informatica snc, Corso 
Genova 100 

La Spezia 

Softline srl. Via Piave 19 
Sanremo (IM) 

A.E.S., Via Volta 24 

Savona 

Briano snc. Corso Tardy e 
Benech 20 r 


Sestri Ponente, Genova 
All Computer sas, Via C. 
Menotti 136 r 

TRENTINO 

Trento 

SI.GE. snc, via Cesare Abba 2 

SICILIA 

Catania 

Centro Informatica sdf, Via 
Firenze 211 

ComputerShop, Via E. 
Orlando 164 

SI.EL Informatica snc, via 
Etnea 289 

Messina 

Cubetasrl, ViaCardines 12/14 
Milazzo (ME) 

TectronTecnologie Elet. srl. 
Via dei Mille 

Palermo 

Informatica Commerciale spa. 
Via Notarbartolo 26 

Ragusa 

Sosyco, Corso V. Veneto 597 

Trapani 

Gualano Eugenio, Via Virgilio 
11 

MARCHE 

Jesi (AN) 

E.M.l. sas, Via F. Conti 4 
New Computer srl, Via 
N.Sauro 17/A 

Torrette di Ancona (AN) 
Sisteda srl. Via Velino 5 

CAMPANIA 

Barano d'Ischia (NA ) 

Matterà Antonio, Via Roma 61 
Benevento 

Masone Informatica, Viale dei 
Rettori 57 

Napoli 

Computer Systems srl, Via G. 
Santacroce 40 
Golden Computer srl. Via 
Michelangelo 7 
I.C. International Computer, 
Viale A. Gramsci, 176 
La Barbera Carlo sas. Via 
Toledo 320 

Salerno 

Computer System, Via E. 
Bottiglieri 19 

SEDA srl, via Parmenide c/o 
lannone 

CALABRIA 

Catanzaro 

Visicom srl. Via Minniti 
Ippolito 10 


Cosenza 

Micro Systems sdf, Via Pane 
Bianco 26 

Gioia Tauro (RC) 

Tecnocomp snc. Via Nazionale 
SS 111/117 

Reggio Calabria 

GLM Informatica snc. Via De 

Nava 98 

Spezzano Albanese (CS) 
Iannibelli, Via Stragoda 48 

PUGLIA 

Bari 

L. e L. Computers srl. Largo 2 
Giugno 4 

Ciesse spa, Via Re David 176/D 
Brindisi 

SIC srl, Viale S.Giovanni 
Bosco 109 

Foggia 

GE.CO. srl. Via Valentini V. 
Franco 1 

Leverano (LE) 

Liberano Elettronica, Via 

C.Salentina 19A/21 

Manduria(TA) 

De Pasquale Ottavio, Via per 
Oria 80 

Nardo (LE) 

Salco srl. Via XX Settembre 
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BASILICATA 

Matera 

Lucana Sistemi srl. Via Don 
Minzoni4 

ABRUZZO 

Avezzano (AQ) 

Aspron, Via America 10/12 
Chieti 

Computer Point sas, Viale 
Unità d'Italia 5 

L'Aquila 

S.E.A.D. srl, via G. di 
Vincenzo 

Lanciano (CH) 

Electronic Microsystems, Via 
della Pace 3 

MOLISE 

Campobasso 

Informatica Molisana, Via 24 
Maggio 185/189 

UMBRIA 

Cerbara di città (PG) 
Computer Post, Via Madonna 
del Vento 
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Controlli 

per ImageWriter e DMP 

Quando accendiamo una stampante, i suoi parametri 
vengono definiti in modo standard, che, per l’ImageW- 
riter e la DMP, sono 10 caratteri per pollice, interlinea 
1/6, stampa bidirezionale e stampa a 80 colonne. Forse 
non tutti sanno che questi parametri possono essere 
cambiati con comando diretto da tastiera e anche da 
programma. Indichiamo alcuni dei più comuni. 

9 caratteri per pollice: PRINT CHR$(27)+"n" 

10 caratteri per pollice: PRINT CHR$(27)+"N" 

12 caratteri per pollice: PRINT CHR$(27)+"E” 

15 caratteri per pollice: PRINT CHR$(27)+"q" 

17 caratteri per pollice: PRINT CHR$(27)+"Q" 
STAMPA UNIDIREZIONALE: PRINT 

CHR$(27)+">" 

(da sinistra a destra) 

STAMPA BIDIREZIONALE: PRINT 

CHR$(27)+"<" 

INTERLINEA 1/6 di pollice: PRINT CHR$(27)+"A" 
INTERLINEA 1/8 di pollice: PRINT CHR$(27)+”B" 
REGOLAZIONE MARGINE SINISTRO: PRINT 
CHR$(27)+"L"+"nnn" (dove nnn è un numero di tre 
cifre corrispondente all’ n—esimo carattere a partire 
dal quale si vuole iniziare a stampare). 

RESET STAMPANTE: PRINT CHR$(27)+"c" 

Per inserire questi comandi occorre prima attivare la 
stampante con l'istruzione PR#n (dove n corrisponde 
allo slot al quale è collegata la stampante) e quindi 
battere le istruzioni. Occorre ricordare che queste 
istruzioni vanno inserite singolarmente, cioè ogni istru¬ 
zione deve essere seguita da un RETURN. Quindi se 
vogliamo stampare ad esempio un listato con il caratte¬ 
re corrispondente al 17 CPI si deve usare la procedura 
seguente: 

caricare il programma in memoria quindi battere 
PR#1 seguito da RETURN 
PRINT CHR$(27)+"Q" seguito da RETURN 
LIST 


AppleWriter e Ile 

Quando si usa l’APPLEWRITER con il //c si incon¬ 
tra qualche problema dovuto al fatto che la linea in 
inverse situata nella parte alta del monitor, dove ven¬ 
gono riportate importanti informazioni (memoria di¬ 
sponibile, lunghezza del testo, nome del file, ecc.) è 
spezzata dai caratteri del Mouse residenti nelle ROM 
dell'APPLE He. 

Lo stesso problema si presenta quando il cursore 
viene posizionato sopra una lettera maiuscola: la lette¬ 
ra viene momentaneamente cambiata nella "Mela". 
Un’altra difficoltà si presenta se si è costretti a usare 
come video il TV domestico o un monitor a bassa 
risoluzione non adatti quindi a visualizzare i caratteri su 
80 colonne. 

Se si utilizza un APPLE Ile oppure un APPLE //e con 
la scheda 80 colonne, l’APPLEWRITER seleziona, 
senza possibilità di scelta, la visualizzazione in 80 
colonne. 

Per risolvere questi problemi, vi presentiamo una 
routine in Basic che apporta alcune modifiche all’AP- 
PLEWRITER e precisamente ai file OBJ.BOOT e 


OBJ.APWRT ][ F permettendo all’utilizzatore di sce¬ 
gliere, tramite l’interruttore dell’APPLE Ile 80/40, se 
farlo girare in 80 o in 40 colonne. L’APPLEWRITER 
così modificato funziona anche sull’APPLE //e. Per 
farlo girare in 40 colonne occorre premere il tasto del n. 
4 durante il caricamento. Il programma non necessita 
di spiegazioni. Terminata la copiatura del listato, salva¬ 
telo come APPLEWRITER CONVERTER, date il 
RUN, sostituite il disco sul quale avete copiato il pro¬ 
gramma con quello contenente l’APPLÉWRITER, 
battete RETURN, e il computer penserà a eseguire le 
necessarie modifiche. 


30 REM CGfWERTITORE APPLEWRITER // 

90 REM PER COMPATIBILITA" /Ve 

100 HIMEM: 4400 :W = CHR$ 'IR): TEXT : HOME : 'JTAB 9 

HO PRIMI 'Inserire i! disco con I'APPLEURITER" 

I20 PRINT : PRINT - e premere [RETURN!. 6ET A»; PRINT 
130 PRINT Dt’BLOAD OBJ.BOOT' 

140 PQKE 7383,194: R0KE 7334.30 
150 FOR X = 7874 T0 7904: READ L: P0KE X,L: NEXT 
160 DATA 32.234,29,173,0,192,201,180,208.5,141,14,192,240 
,10.173,192.251,208,10 
170 DATA 44,94,192,14,5,149,0,141.42,29,94 
180 PRINT Ói'UNLOCK OBJ.BOOT' 

190 PRINT DVBSAYE OBJ.B00T,A*1 C00.L42E1 ” 

200 PRIMI 04'LCCK OBJ.BOOT* 

210 PRINT DJ'BLOAD OBJ.APURTKF' 

220 P0KE 7129,74: P0KE 7130.88: P0KE 7131,80 
230 P0KE 7264.97: P0KE 7267,80 
240 P0KE 1249/,99: P0KE 12498,80 
250 FOR X = 17989 T0 18031: READ Li P0KE X,L: NEXT 
240 DATA 193,240.240,234,229,160,175,175,227,160,246,229, 
242,243,233,239,238,140,0,201 

270 DATA 96,176,2,41,43,145,40,96,144,36,72,10,10,48,4,10 
4,41,191,72,104 
280 DATA 76,222,37 
290 PRINT M'UNLÒCK OBJ.APURTKF' 

300 PRINT Dt'BSAUE OBJ.APURTKF,A»1900,L*30D1 “ 

310 PRINT M'LOCK OBJ.APURTKF' 

320 VTAB 20: PRINT 'Conversione terminata" 


Le parole riservate 

Ecco spiegato in sintesi il significato di alcune parole 
che a qualcuno possono sembrare ancora formule ma¬ 
giche, ma che in realtà di magico hanno solo il fatto che 
fanno funzionare il nostro computer... 

CLEAR — permette di riportare a zero tutte le varia¬ 
bili precedentemente dimensionte e riempite di dati. 

POP — quando si incontra questo comando al termi¬ 
ne di una subroutine, il successivo RETURN rimanda 
il programma alla linea immediatamente dopo la linea 
contenente il penultimo GOSUB. 

RESTORE - incontrando questo comando dopo 
aver eseguito un READ, un successivo comando 
READ che viene incontrato legge i DATA dall'inizio e 
non partendo dall’ultimo DATA letto come farebbe 
normalmente. 

SPC — questa funzione va sempre usata con un co¬ 
mando PRINT e permette di scrivere una parola o un 
dato, un certo numero di spazi orizzontali prescelto a 
partire sempre dall’ultima posizione del cursore. La 
sintassi esatta è: PRINT SPC(n.spazi);"nome o dato". 
Oppure PRINT"nome”;SPC(n.spazi);"altro nome". 

TAB — questo comando, chiamato tabulazione, 
opera la stessa funzione di SPC. La differenza sostan¬ 
ziale è che le varie spaziature orizzontali sono sempre 
calcolate dall’inizio della tabulazione e non dall’ultima 
posizione del cursore. La sintassi esatta è: PRINT 
TAB(n.spazi);"nome";TAB(n.spazi);"nome" e così 
via. 
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C B S CONTROL BYTE 


Via Comelico, n. 3 - 20135 Milano 
Tel.02 5400421-TIX350136CIBIES I 


è futuro 


Fuji ha messo 
tecnologie del futuro — 
nei floppy disks 


I nuovi floppy disks Fuji Heawy Duty assicurano 
una durata di oltre 20 milioni di passaggi, con 
tracce error-free ai 100%. 

Innovativi per la struttura tridimensionale 
flessibile delle particelle magnetiche, 
la modulazione ridottissima, contenuta entro il 3%, 
il Super Hub Ring, parte integrante della 
struttura tridimensionale, e l’involucro resistente 
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FUJI FILM FLOPPY 0I8K 
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A casa tua, partendo dalle nozioni 
di base e mettendo ogni volta in pratica 
ciò che impari, diventerai un esperto in 
micro-calcolatori. 

Non solo, ma con i materiali del Corso 
costruirai interessanti apparecchiature 
che resteranno di tua proprietà e 
ti serviranno sempre: il MINILAB 
(laboratorio di elettronica 
sperimentale), il TESTER (analizzatore 
universale), il DIGILAB (laboratorio 
digitale da tavolo), l’EPROM 
PROGRAMMER (programmatore di 
memorie EPROM) e l’ELETTRA COMPUTER 
SYSTEM (microcalcolatore basato sullo Z80). 
Chiedi oggi stesso informazioni gratis e senza 
impegno su questo 
nuovo Corso o 
sugli altri 9 Corsi 
di elettronica 
preparati per 
te da Scuola 
Radio 
Elettra. 


PER TE 

UNA PROFESSIONE 
NUOVA: TECNICO IN 
MICROCOMPUTER 


I microcomputer richiedono tecnici capaci di 
assicurarne sempre il perfetto funzionamento. Sapere 
com’è fatto un microcomputer, conoscerne tutti i segreti, 
è il punto di partenza per un’attività moderna, specialistica 
e interessante anche per le possibilità di guadagno. 

Ecco perché Scuola Radio Elettra 
ti propone il CORSO-NOVITÀ’ 

ELETTRONICA DIGITALE 
E MICROCOMPUTER 

in 44 gruppi di lezioni e 17 serie 
" di materiali con oltre 870 
componenti e accessori. 
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Compila e spedisci questo tagliando. 


Scuola Radio Elettra 

Via Stellone 5-10126 Torino 


Compila, ritaglia, e spedisci solo per informazioni a: X 96 I 

SCUOLA RADIO ELETTRA - Via Stellone 5 -10126 Torino I 

Vi prego di farmi avere, gratis e senza impegno, il materiale informativo relativo al Corso di: 


□ Tecnica elettronica 
sperimentale (NOVITÀ ) 

□ Elettronica digitale (NOVITÀ') 

□ Microcomputer (NOVITÀ) 

□ Elettronica Radio TV 

□ Elettronica industriale 


□ Televisione b/n 

□ Televisione a colori 

□ Amplificazione stereo 
OAIta fedeltà 

□ Strumenti di misura 
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Data e ora nel catalog PRODOS 

Sul n. 12-13 di Applicando , rispondendo alla lettera 
di un lettore, avevamo spiegato un modo diretto per 
datare i programmi quando venivano salvati. Certi di 
fare cosa gradita ai lettori, riportiamo la procedura in 
questa rubrica completandola con l’inserimento dell’o¬ 
ra, per coloro che non hanno inserito nell’APPLE la 
scheda orologio. 

DATA: Caricato il PRODOS in memoria, occorre 
battere POKE 49041,anno (solo due cifre) *2+(ME- 
SE>7). Poi se il numero del mese è maggiore di 7, 
battere POKE 49040,(MESE-8)*32+GIORNO; se 
invece il numero del mese è minore di 8, si deve battere 
POKE 49040,MESE*32+GIORNO. Esempio: la data 
1/1/85 va inserita così: 

POKE 49041,85*2+(l>7):POKE 49040,1*32+1. 

ORA: Battete POKE 49043,ORA (da 0 a 24):POKE 
49042,MINUTI (da 0 a 59). 

Da questo momento e fino a quando non spegnerete 
il computer, ogni qualvolta salverete un programma, 
verrà anche indicato il giorno e l’ora. Una cosa impor¬ 
tante da ricordare è che l’ora non potrà essere inserita 
se prima non si prowederà a inserire la data. 

Comandi PRODOS 


Abbreviazione 

Tipo di file 

DIR 

Directory 

TXT 

Testo 

BAS 

Programma in Applesoft 

BIN 

Programma in Assembler 

REL 

Programma in Assembler Rilocabile 

SYS 

Prodos System File 

SYS 

Prodos System Program 

VAR 

Variabili Applesoft 


Un altro comando molto utile in PRODOS che non 
si aveva in DOS, è CHAIN. Esso permette di concate¬ 
nare due programmi senza cancellare dalla memoria le 
variabili relative al primo programma. Può essere usato 
sia come comando immediato sia da programma. Cari¬ 
ca in memoria e fa girare il programma richiamato 
permettendo di utilizzare le variabili che erano in me¬ 
moria. La sintassi del comando è: CHAIN no- 
me[,@#][,S#][,D.#«], Per esempio: 

CHAIN/ESEMPIO/PARTE.II 

L’opzione @# è utile per far partire il programma da 
una determinata linea. Occorre ricordarsi che in PRO¬ 
DOS tutti i comandi di accesso a disco o a intefacce, 
inseriti in un programma, devono essere sempre prece¬ 
duti da CTRL—D o dall’equivalente CHR$(4), pena 
ricevere un messaggio di SYNTAX ERROR. 


Sul N.7/84 avevamo trattato, a grandi linee, il siste¬ 
ma operativo PRODOS. Riprediamo il discorso trat¬ 
tando in particolare i nuovi comandi inseriti in questo 
sistema operativo. Innanzitutto vogliamo ricordare che 
il PRODOS può trattare il disco sul quale salviamo i 
dati come un grande armadio con tanti cassetti nei quali 
sono sistemati i vari file dello stesso genere (questi 
cassetti vengono chiamati DIRECTORY). Quindi in¬ 
vece di fare una ricerca in armadio senza cassetti con 
tutto ammonticchiato, abbiamo la possibilità di fare 
una ricerca settoriale a seconda dell’argomento tratta¬ 
to. Per rendere possibile questo è sufficiente creare 
delle DIRECTORY con il nome del genere di file che 
vogliamo archiviare: giochi, utility, contabilità, casa, 
ufficio, ecc. Le DIRECTORY possono essere create 
più semplicemente senza utilizzare il disco di utility, 
con il comando "CREATE". 

Lo scopo principale di questo comando è appunto di 
creare una nuova DIRECTORY nella quale inserire 
dei file. Può essere utilizzato anche per creare tutti i tipi 
di file utilizzabili dal PRODOS. La sintassi è la seguen¬ 
te: CREATE nome[,Ttipo][,S#][,D#] dove "nome" è 
il nome del file che si vuol creare, "tipo" è il tipo di file 
che si vuol creare, "S#" e "D#" sono rispettivamente lo 
slot e il driver dove è inserito il disco. I comandi nelle 
parentesi quadre sono facoltativi. Se si omette il "tipo" 
viene creato automaticamente un file "DIRECTORY". 

Creata la DIRECTORY, per vedere i file compresi 
in essa occorre battere CAT/nome directory/nome file; 
se invece vogliamo lavorare con un programma salvato 
in una DIRECTORY dobbiamo battere PREFIX/no- 
me directory seguito da RETURN. Da questo momen¬ 
to tutti i comandi relativi al disco saranno riferiti al 
programma contenuto in quella DIRECTORY. 

Nella spiegazione del comando CREATE abbiamo 
detto che esso può creare vari tipi di file usati dal 
PRODOS. Riportiamo qui la loro nomenclatura che è 
la stessa che si ritrova nel catalog. 



Altri comandi che non esistevano in DOS e invece 
sono presenti in PRODOS sono STORE e RESTORE. 
L’istruzione STORE permette di salvare in un file di 
tipo VAR tutte le variabili che in quel momento si 
trovano in memoria lasciando invariato sia il program¬ 
ma che abbiamo in memoria sia le stesse variabili. Per 
richiamare le variabili si usa l’istruzione RESTORE. 
Essa cancella le variabili che si trovano attualmente in 
memoria e le sostituisce con quelle memorizzate nel file 
VAR sul disco. 

La sintassi è STORE nome e RESTORE nome. Può 
essere eseguito sia come comando immediato sia trami¬ 
te programma. 



cambia Sostituisce 


Programma 

Uariabili 

Memoria 

• ' 

BHSIC 

BHSIC 




Disco ~ 

1 


Non Non 

cambia cambia 


STORE: 

sdlua le uariabili 
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Una cassetta 
di salvataggio 

Sono un fedele abbonato 
possessore di un Apple //e 
con scheda 80 colonne più 
64K. Ho battuto il program¬ 
ma UNA CASSETTA DI 
SALVATAGGIO pubbli¬ 
cato su Applicando n. 7 ma, 
fatto girare, battuta l’opzio¬ 
ne due "da disco a nastro", e 
digitata l’intestazione ri¬ 
chiesta, il driver gira per due 
tre secondi, si blocca, e ri¬ 
mane bloccato senza dare il 
caratteristico segnale acusti¬ 
co di inizio registrazione, 
neanche dopo svariati minu¬ 
ti. Essendo certo di non aver 
commesso errori di battitu¬ 
ra, per aver più volte con¬ 
trollato il listato in linguag¬ 
gio macchina, sono propen¬ 
so a credere in un errore ti¬ 
pografico. Resto in attesa di 
un vostro chiarimento in 
merito, nel contempo gradi¬ 
rei conoscere se sia possibile 
sfruttare l’espansione di me¬ 
moria per velocizzare l’ope¬ 
razione lettura scrittura da 
disco a nastro e viceversa. 

Filippini Fabio 

Signa (FI) 

Possiamo escludere un er¬ 
rore tipografico nel listato, 
tuttavia abbiamo dimentica¬ 
to di indicare i parametri di 
salvataggio del listato stesso 
che trascriviamo qui di se¬ 
guito: BSAVE ARCHI¬ 
VIO, A$800,L$55C 

Trappola 
per pochi 

Il papà ha acquistato un 
Apple//c e io ho faticato tan¬ 
to a ricopiare il lungo listato 
di TRAPPOLA PER PO¬ 
CHI pubblicato sulla vostra 
rivista di dicembre. 

Dopo aver corretto alcuni 
errori che avevo fatto rico¬ 
piandolo, ho cercato di farlo 
girare, ma sempre Apple//c 
mi rispondeva 

1) ?Next without for error in 
6250 

2) digitando il tasto I mi dà: 
?Out of memory error in 


5030. 

Ho contollato più volte se 
avevo digitato giustamente 
queste due righe; avendo 
copiato giustamente vi chie¬ 
do cosa devo fare. Vorrei sa¬ 
pere anche se questo pro¬ 
gramma si può usare, ag¬ 
giungendo alcune righe, col 
joystick. 

Stefano Buracchia 

(Milano) 

Quando si incontra 
"NEXT WITHOUT FOR in 

linea .", Terrore non si 

trova quasi mai alla linea in¬ 
dicata ma in una linea prece¬ 
dente dove viene messa l’i¬ 
struzione FOR. Ricontrolla 
attentamente il listato e so¬ 
prattutto se hai scritto FOR 
all’inizio delle linee 6210 e 
6230, e GOTO 7000 al termi¬ 
ne della linea 6240. Senza 
GOTO 7000, quando il pro¬ 
gramma arriva alla linea 
6240 e trova vera l'ugua¬ 
glianza, incontra NEXT K,J 
quindi passa alla linea 6250 
e, se è vera, ritrova NEXT 
K,J e segnala errore. 

Anche per il secondo pro¬ 
blema ti consigliamo di con¬ 
trollare meglio il listato per 
trovare un eventuale errore 
di battitura. 

Per usare il joystick al po¬ 
sto della tastiera indichiamo 
qui sotto le linee del pro¬ 
gramma che vanno modifi¬ 
cate. Per iniziare il gioco si 
deve battere il tasto di sinistra 
del joystick oppure il tasto 
MELA VUOTA. 


Sul software copiato 

Spett. Sig. Emilio Guarisco (autore di una lettera 
pubblicata sul N. 14 di Applicando, che avevamo 
intitolato "Copiate non comprate?" N.d.R.) la sua ri¬ 
chiesta di conoscere il parere di altri lettori di questa 
(per me) magnifica rivista, mi ha fatto sentire in dove¬ 
re, come utilizzatore di programmi fatti da altri, di 
risponderle, sperando che la mia non sia l’unica missi¬ 
va sullo scottante argomento a giungere in redazione. 

Sono d’accordo con lei sul fatto che il prezzo del 
software, tenuto conto del costo del dischetto, del 
manuale, delle spese sostenute dall’ideatore e di 
quelle pubblicitarie oltre che di distribuzione, debba 
essere calcolato in base al preventivo di vendita dello 
stesso, per ammortizzare i costi e diminuire il prezzo 
nel caso che venga superato il preventivato numero di 
copie vendute. Questo, secondo me, è tener conto 
delle leggi di mercato. Penso che vendere copie di 
programmi sia la forma migliore di pubblicità per una 
ditta di home o personal computer. I ragazzini infatti 
si fanno comprare il Commodore o l’Apple dal mo¬ 
mento che a scuola o al club trovano il relativo softwa¬ 
re a prezzi loro accessibili. Giapponesi, inglesi ed ora 
anche altri si sono resi conto che, integrando le mac¬ 
chine con programmi o dandoli su supporti all’atto 
dell’acquisto, hanno incrementato le vendite. Non 
può esistere Computer Shop che ti dia una configura¬ 
zione completa dicendoti :"ora se vuole vedere qual¬ 
cosa sul monitor deve spendere 'tot’ per il tale pro¬ 
gramma". Chi venderebbe più ? Solo chi fornisce 
sistemi "chiavi in mano"! Il personal sarebbe solo per i 
grandi o per l’hobbista e alla piccola gestione non 
rimarrebbe che l'home (ve lo vedete voi il piccolo 
gestore che armeggia sull’AQUARIUS ?!). Óra ba¬ 
sta, sto diventando polemico. Signor Emilio, mi sem¬ 
bra eccessiva la presa di posizione contenuta nel pri¬ 
mo paragrafo della sua lettera. Come fa a conoscere i 
commenti che ha suscitato senza ricevere o acquistare 
Applicando ? Rinnovo i miei complimenti alla reda¬ 
zione con i saluti ai lettori e al signor Emilio. 

Marcello Mori Ventimiglia (IM) 


LISTATO 


1000 X = PEEK ! - U287) :Y = RND < - RND (1))! 1F X < 12 
8 THEN 1000 

5010 FOR J = 1 T0 15:X = PEEK ( - 16297): IF X > 127 THEN 
J = 15 

5100 IF, POI (0) > 0 AND PDL (0) < 255 AND PDL (1) > 0 ANO 
PDL (1) < 255 THEN RETURN 

5110 IF PDL (1) = 0 AND PDL (0) > 0 AND PDL (0) < 255 THEN 

G0SUB 5300: RETURN 

5120 IF PDL (0) = 0 AND PDL (1) > 0 AND PDL (1) < 255 THEN 

G0SUB 5390: RETURN 

5130 IF PDL (0) = 255 AND PDL (1) > 0 AND PDL (1) < 255 

THEN GDSUB 5480: RETURN 

5140 IF PDL <1) = 255 AND PDL (0) > 0 AND PDL (0) < 255 

THEN GOSUB 5570: RETURN 

5150 IF PDL (0) = 255 ANO PDL (1) = 255 THEN GOSUB 5660 

: RETURN 

5160 IF PDL (0) = 0 AND PDL (1) = 255 THEN GOSUB 5690: RETURN 

5180 IF PDL (0) = 0 AND PDL (1) = 0 THEN GOSUB 5720: RETURN 

5190 IF PDL (0) = 255 AND PDL (1) = 0 THEN 5750: RETURN 


Pucman 

Ho digitato su un Ap- 
ple//e il listato PUCMAN 
apparso su Applicando n. 
6/84 e mi sono accorto che il 
calcolatore dopo aver letto il 
listato n.l non tiene più in 
memoria i listati n.2 e n.3 
che aveva caricato in memo¬ 
ria durante la lettura del li¬ 
stato n.l. Tutto ciò ha come 
conseguenza che il compu¬ 
ter non può far girare i listati 
n.2 e n.3 anche se li aveva 
già caricati in memoria. 
Inoltre, dopo che appare la 
scritta PREMERE UN TA¬ 
STO PER CONTINUARE 
e ciò viene fatto, il program- 
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IL MERCATINO DELLE MELE 


ma si blocca facendo appari¬ 
re sul video una strana scrit¬ 
ta in linguaggio macchina. 
Cosa è successo? Cosa posso 
fare? 

Bologna Walter 

Desio (MI) 

A pag. 45 del N.6 è stato 
commesso un errore tipogra¬ 
fico nella descrizione delle 
operazioni di salvataggio dei 
due listati in linguaggio mac¬ 
china. Le istruzioni esatte 
sono per il listato 2 a pag. 42 
BSAVE N1BBLER SHA- 
PES,A$4000,L$152 e per il 
listato 3 a pag.43 BSAVE 
N 1 B B L E R O B - 
J;A$6000,L$1181. Per recu¬ 
perare una parte del lavoro 
di copiatura effettuato inseri¬ 
sca il dischetto contenente i 
listati ed esegua le seguenti 
istruzione: 

1 BLOAD NIBBLER 
SHAPES,A$4000 

2 BSAVE NIBBLER 
SHAPES,A$4000,L$150 

Con queste prime opera¬ 
zioni ha sistemato il listato 2 
al posto giusto. 

3 BLOAD NIBBLER 
OBJ,A$6000 

4 BSAVE NIBBLER 
OBJ,A$6000,L$1181 

5 CALL-151 

A questo punto batta 
6153: e continui a copiare il 
listato 3 salvandolo poi con 
l’istruzione indicata al punto 
4. 


Errata-Corrige 

Il programma SISTEMA 
BASE pubblicato sul N. 3 a 
pag. 14 contiene un errore ti¬ 
pografico alla linea 6780. 
Essa va riscritta così: 

IF Y$< > "S" THEN 6640 


PRECISAZIONE 


Nel programma AGEN¬ 
DA PERSONALE pubbli¬ 
cato sul N. 5 a pag. 23, allo 
scopo di avere una sicurezza 
maggiore nell’inserimento 
del "codice di sicurezza", è 
utile modificare un’ugua¬ 
glianza alla linea 9220 e pre¬ 
cisamente IF A$="" va sosti¬ 
tuito con IF A$=CHR$(13) 


• Compro, purché in buo¬ 
ne condizioni, il n. 2 di Ap¬ 
plicando a Lire 30.000. Te¬ 
lefonare a Marino allo 
02/9102341. 

• Visicalc, Visicorp per 
Apple //e, con programma 
Training CDEX (3 dischi) 
versione 1983. Usato po¬ 
chissimo. Quick File solo 
per //e, edizione 1984, pra¬ 
ticamente nuovo. Vendo a 
buon prezzo o cambio. Te¬ 
lefonare ore pasti a Mar¬ 
cello allo 02/2141710. 

• Acquisto stampante 
grafica usata 132/80 colon¬ 
ne con interfaccia per Ap¬ 
ple //e. Telefonare ore uf¬ 
ficio: 0372/411994, chie¬ 
dendo di Alessandro Tan- 
tardini. 

• Compro a qualsiasi 
prezzo manuale del Gu- 
temberg. Scrivere o telefo¬ 
nare a: Luca Bechis, Via 
B. Bruni 5, 12100 Cuneo. 
Tel. 0171/65143. 

• Vendo a sole 30.000 lire 
su dischetto, l’appassio¬ 
nante adventure game "La 
scatola nera", personal¬ 
mente realizzato. Gira su 
Apple II, //e o compatibili 
con un drive. Il program¬ 
ma può essere esaminato. 
Per informazioni rivolger¬ 
si a: Mauro Milanese, Via 
Statuti 27, 30020 Pradi- 
pozzo (VE). Tel. 
0421/704624. 

• Macintosh consulenza 
professionale hardware e 
software. Vendo/creo/per¬ 
sonalizzo programmi di 
tutti i generi. Traduco 
software e documentazio¬ 
ne commerciale. Specia¬ 
lizzato in gestione studi le¬ 
gali, medici, commerciali, 
pubblicitari. Alessandro 
Menicacci, Via San Silve- 
rio 31, 00165 Roma. Tel. 
06/6384180. 

• Causa passaggio siste¬ 
ma superiore svendo circa 
300 programmi per Apple 


II (ognigenere). Blocco 10 
dischetti doppia faccia con 
programmi vari a Lire 
100.000. Vendo anche se¬ 
paratamente. Per infor¬ 
mazioni scrivere o telefo¬ 
nare a: Bruno Rota, Via 
Passo di Brizio 6, 20148 
Milano. Tel. 02/4082437. 

• Per Apple Uè vendo 80 
colonne estese (80 colonne 
+ 64Kb), nuove e perfet¬ 
tamente collaudate. Di¬ 
spongo di due versioni: 
senza zoccoli L. 120.000 e 
zoccolate L. 140.000. No¬ 
tato i prezzi? Garantisco 
massima serietà. Per infor¬ 
mazioni telefonare a Paolo 
allo 0332/589739. 

• Vendo Apple //e, moni¬ 
tor II, Disk //, 50 program¬ 
mi tra cui Visidex, Visi- 
Cale, Flight Simulator. Il 
tutto in perfette condizioni 
a lire 200.000. Giampaolo 
Rolli, Via Rodolfo Tanzi 
41, 43100 Parma. Tel. 
0521/31303. 

• Vendo a lire 2.800.000 
computer Apple Ile , quat¬ 
tro mesi di vita, mouse, 
stampante Scribe, racco¬ 
glitore dischi, scatola 10 
dischi. Il tutto con imbal¬ 
laggi originali e garanzia; 
più omaggi. Tel. 
02/799216 oppure 
6898171. 

• Vendo Apple originale, 
scheda language, scheda 
80 colonne, minuscole, 
due drive con controller, 
monitor Philips 12", stam¬ 
pante Centronics 739 gra¬ 
fica con interfaccia paral¬ 
lela. Regalo otto nastri in¬ 
chiostrati e cinque dischet¬ 
ti di programmi, in blocco 
a lire 2.600.000, non trat¬ 
tabili, fatturabili. Telefo¬ 
nare nel pomeriggio al- 
l’arch. Pinelli allo 
02/4399713. 

• Causa cambio sistema 
vendo per Apple II circa 
150 dischi con software di 
ogni genere. Vendo anche 


separatamente a lire 
15.000 per disco. Rivol¬ 
gersi a Marco Pozzi, Via 
Cenisio 16, Milano. Tel. 
02/314151. 

• Vendo monitor colori 
14" Cabel. Cambio softwa¬ 
re per Apple IL Telefona- 
re a Vittorio allo 
031/711317. 

• Desidero contattare 
possessori di Apple Ma¬ 
cintosh per scambio espe¬ 
rienze e software. Luigi 
Servadei, Via Villa d’Oro 
45, 41100 Modena. Tel. 
059/250933. 

• Acquisterei program¬ 
ma Apple Writer Ile o pro¬ 
gramma conversione da 
Apple Writer Ile a Ile. 
Ignazio Mastrapasqua, 
Via R. Fauro 54, Roma. 
Tel. 06/803500. 

• Vendo Macintosh 
512K, stampante Imagew- 
riter 80 e i seguenti pro¬ 
grammi: Multiplan ingle¬ 
se, Ms Basic 1.0, Ms Basic 
2.0, MacPaint, MacWrite. 
Tutto a 6.000.000 intratta¬ 
bili. Telefonare allo 
0861/72750 ore negozio. 

• Si eseguono accurate 
traduzioni dall’inglese di 
libri, manuali e software 
per Apple. Scrivere a ca¬ 
sella postale S.F. 127, 
41100 Modena. 

• Vendo per Apple II 
"Supertoto 1.0" superpro- 
gramma totocalcio inedi¬ 
to, tre diverse opzioni di 
selezioni incrociate (N. se¬ 
gni 1X2; consecutivi; corr. 
errori), con output n. co¬ 
lonne utili, sviluppo su 
monitor o stampante. Lire 
60.000 con manuale. Ro¬ 
berto Rossi, Via Lario 26, 
20159 Milano. Tel. 
02/6070236 ore serali. 



















applicando 


Listati senza fatica 


Tutti i programmi di Applicando possono essere trascritti e quindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. 
Ecco perché Applicando offre, già pronti, i dischetti con i programmi 
sottoindicati: per ottenerli, è sufficiente inviarci il tagliando debitamente 
compilato. 


Applicando 1 

•AP1/I02 

Profitti. In tempo reale l'analisi del break-even point, punto di pareg¬ 
gio, di una qualsiasi azienda. Calendario perpetuo. Dal 1582 in poi 
tutto quello che si può sapere sui giorni passati e futuri. I tronchi del 
tesoro. Una spericolata caccia al tesoro a nuoto, fra le insidie di 
tronchi galleggianti. Lire 30.000 (abbonati 25.000). 

•AP1/N03 

Eliminatore di Dos. Uno strumento per aumentare del 10% la capaci¬ 
tà di un normale floppy disk. Orologio. Per trasformare l'Apple // in un 
orologio con rintocchi, allarme e lancetta dei secondi. Pronti puntare 
fuoco! Guardiano di un castello abbandonato, hai 25 colpi da sparare 
contro gli intrusi. Lire 30.000 (abbonati 25.000), 

Applicando 2 
"AP2/IN04 

Costi chilometrici auto. Un programma per calcolare e confrontare i 
costi di qualunque auto. Richiamafigure. Posizionare, ingrandire, 
ruotare, cambiar colore, aggiungere figure a quelle di una tavola. 
Laser nello spazio. Battaglia a colpi di laser contro asteroidi e alieni 
per difendere la torretta spaziale. Lire 30.000 (abbonati 25.000). 
Applicando 3 
*AP3/IN05 

Sistema base. Un data base modulare con tutte le caratteristiche 
essenziali per mettere ordine nei propri archivi. Etichette. Etichette 
spiritose e bizzarre, di lavoro o di ogni genere, stampate facilmente e 
nel numero desiderato. Contratti. Con il WPL, il linguaggio di pro¬ 
grammazione dell’Apple Writer, bastano cinque minuti per un docu¬ 
mento di più pagine personalizzato. Gran catalogo. Una routine per 
avere il catalogo del dischetto su due colonne, 42 file per volta, e 
richiamarli con un solo tasto. Lire 30.000 (abbonati 25.000). 
•AP3/A06 

Equo canone (occorre Visicalc). In Visicalc un modello che permette, 
a inquilini o proprietari, l'esatto calcolo dell'equo canone. Lire 25.000 
(abbonati 20.000). 

Sistema base - AP3/IN05 

Un data base modulare che ha 
il pregio di costare pochissimo 
e di offrire possibilità operative 
che nemmeno programmi 
di costo molto superiore hanno. 


Applicando 4 

‘AP4/N07 

Lettura sprint (versione italiana e versione con frasi in inglese). Un 
reading improver per leggere di più a parità di tempo. Rompiquindici. 
Il piccolo rompicapo delle quindici pedine da ordinare nei sedici spazi a 
disposizione. Tastierino fantasma, una routine per avere a disposi- 

_ 


zione un tastierino numerico anche sull’Apple //. Routine di input. 
Due subroutine, una per i dati numerici l’altra per gli alfanumerici, per il 
controllo dell'input. Lire 30.000 (abbonati 25.000). 

“AP4/A09 

Organo, violino, pianoforte (dischetto Pascal, occorre language 
card o Apple //e o Ile). Ecco come si riesce a simulare i tre strumenti 
attivando l'altoparlante dell'Apple da programma. Lire 30.000 (abbo¬ 
nati 25.000). 

Applicando 5 

•AP5/N08 

Investor. In tempo reale il quadro di come vanno i propri investimenti 
in Borsa. Con 5 prospetti riepilogativi e 52 periodi di quotazione, 
Investor è uno dei programmi più completi in questo settore e in 
assoluto il più economico. Lire 70.000 (abbonati 60.000). 

•AP5/N09 

Agenda personale. Per ricordare ora per ora gli appuntamenti di un 
anno intero memorizzando fino a 15 appunti ogni giorno. Duello 
d'artiglieria. Vince chi sa calcolare meglio la velocità del vento, la 
gittata e l'elevazione della canna Mele e freccette. Versione compu¬ 
terizzata del popolare gioco delle freccette che nulla toglie al gusto del 
far centro. Lire 30.000 (abbonati 25.000). 


Investor - ÀP5/N08 



Per seguire le azioni in Borsa, con 
grafici, media mobile a 15 e 52 
settimane, medie volume e prezzo. 


Applicando 6 

•AP6/N10 

Obbligazioni/Bond Manager. Per avere un quadro completo e con¬ 
creto dei rendimenti dei titoli a reddito fisso. PucMan/Nibbler. Versio¬ 
ne in alta risoluzione per Apple del famoso videogame a gettone. Line 
finder. Questa utility permette di localizzare facilmente i segmenti di 
un programma. Lire 30.000 (abbonati 25.000). 

•AP6/N11 

Stress. In Pascal (occorre language card o Apple Ile o Ile). Per 
giocare, ma soprattutto per inventare giochi, il programma si pone in 
alternativa agli usuali videogame. Lire 55.000 (abbonati 45.000). 


128 























Stress - AP6/N11 

Il programma ideale per chi ha 
l'Apple //c (ma gira anche sul //e) 
e che consente di inventare 
sempre nuovi giochi. 


Applicando 7 

•AP7/N12 

Apple pittore. Si possono realizzare sullo schermo capolavori di 
pittura, ottenendo effetti speciali di grande efficacia. Ottovolante. Un 
tutorial per insegnare ai bambini a riconoscere i numeri che rimbalza¬ 
no sullo schermo. Diskblock. Una routine che permette di evitare che 
qualche curioso possa avere libero accesso in programmi riservati. 
Archivio per Apple. Per avere un back-up dei programmi più impor¬ 
tanti da dischetto a cassetta o viceversa. Discoteca. Una banca dati 
che tiene sotto controllo la collezione di longplaying e di cassette. 
Aiuto. Alla fine della battitura di un programma, Aiuto vi dirà quanti 
errori ci sono e a quali linee.Lire 30.000 (abbonati 25.000). 


Apple pittore - AP7 /N12 

Potrete realizzare sullo schermo 
capolavori artistici con effetti 
speciali di grande efficacia 
ma soprattutto facili da ottenere. 


Applicando 8 

*AP8/N13 

Cambiacomandi/Messaggi. Un programma che insegna come per¬ 
sonalizzare i messaggi propri del Dos dell’Apple. Le Mans. Un gran 
premio di formula uno da giocare in due o da soli contro il computer. 
Appleorgano. Una combinazione di linguaggio macchina e di Apple¬ 
soft che trasforma l'Apple in un melodioso organo. Lire 30.000 (abbo¬ 
nati 25.000). 

*AP8/T 14 

Momento di una forza/Colpo all’asta. La dimostrazione didattica del 
ribaltamento di un corpo solido appoggiato a un piano quando viene 


applicata una forza orizzontale che supera il momento in senso oppo¬ 
sto dovuto al peso. Hard copy pagine in alta risoluzione. Se la 
stampante risponde a determinati criteri di compatibilità, con questo 
programma si possono far miracoli. Lire 30.000 (abbonati 25.000). 

Applicando 9 

•AP9/N15 

Fuoco fatuo. Un appassionante adventure game con un percorso 
intricatissimo, mille trabocchetti, un troll e una principessa. Apple 
artista. Per destreggiarsi nella grafica ad alta risoluzione usando lo 
schermo come tavolozza e la tastiera come pennello. Data hello. Una 
semplice routine che permette di disporre di una clock card inizializ- 
zando i dischetti con giorno, mese e anno. Lire 25.000 (abbonati 
20 . 000 ). 

•AP97T16 

Sistema di forze parallele. Fissandone l’intensità e la posizione 
questo programma permette di visualizzare il centro di un sistema di 
forze sotto forma numerica e grafica. Traslazione e rotazione di una 
figura piana. Come far ruotare, traslare, rimpicciolire, ingrandire sul 
video una figura piana. Lire 30.000 (abbonati 25.000). 

Applicando 10 

*AP10/N14 

Ripristino. Come ripristinare programmi persi per un’accidentale 
istruzione di New o di Fp. Disk Map. Un detective del Dos per scoprire 
dove e come vengono immagazzinati i dati analizzando la mappa dei 
bit occupati. Autonumber. Una routine per autonumerare automatica- 
mente i programmi e allineare le linee con un ritorno carrello in input. 
Lire 30.000 (abbonati 25.000). 

•AP10/T17 

Rette nel piano cartesiano. Come individuare in cinque modi diversi 
una coppia di rette in un piano cartesiano e avere visualizzate le 
equazioni relative ai valori assegnati. Statistica. Come analizzare la 
correlazione fra due fenomeni o due caratteri e l’indice o coefficiente di 
Bravais che ne effettua la misura. Lire 30.000 (abbonati 25.000). 
Applicando 11 
*AP11/N18 

Apple edicola. Una banca dati per avere sotto controllo un articolo, il 
suo numero di pagina, la rivista su cui è stato pubblicato. Disk Zap. Il 
programma indispensabile per il debugging di un dischetto che ne 
risolve la maggior parte dei problemi. Messaggi personali. Quando la 
persona non c’è, per lasciare un messaggio basta impostarlo sulla 
tastiera. L’Apple farà il resto. Comparatore di programmi in basic. 
Una routine per risolvere dubbi sulle diverse versioni di uno stesso 
programma. Trappola per pochi. Un cacciatore contro tre animali 
feroci. Vince chi riesce a intrappolare senza essere intrappolato. Lire 
30.000 (abbonati 25.000). 

•AP11/T19 

Espressioni. Come risolvere un piccolo dramma familiare con l’aiuto 
di un elaboratore personale. Lire 25.000 (abbonati 20.000). 

Applicando 12-13 

AP127N20 

Bridge. Un programma in altissima risoluzione grafica che permette di 
imparare il bridge o di giocarlo contro il computer. Microcalc. Un foglio 
elettronico di calcolo, spreadsheet, che mette a disposizione 20 righe 
per 20 colonne per un totale di 400 caselle da riempire come si vuole. 

(Continua a pag. 130) 


Compilare e spedire il tagliando qui sotto a Applicando, Editronica Srl., Corso Monforte 39, 20122 Milano 
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Vogliate inviarmi i seguenti dischetti: 
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| Sono abbonato: sì □ no □ 


Cognome. Nome . 

Via . Cap. 

Città . Prov. 

Scelgo la seguente formula di pagamento: 

□ allego assegno di L.non trasferibile intestato a Editronica srl. 

□ allego ricevuta versamento di L. sul cc/p n. 19740208 intestato a 

Editronica srl. - Corso Monforte, 39 - 20122 Milano 

□ pago fin d’ora l'importo di L. con lamiacarta 

di credito Bank Americard N . . . 

scadenza.autorizzando la Banca 

d’America e d’Italia ad addebitarne l’importo sul mio conto BankAmericard. 


Data. Firma 








































Disk Service 


Applesoft Line Editor. Una potente utility che permette l'editing dei 
programmi in Applesoft e aggiunge all'Apple un più ampio controllo del 
cursore. Lire 30.000 (abbonati 25.000). 

AP12/A21 

Budget (occorre Appleworks). Un prospetto che con l'inserimento di 
dati mensili e di medie preventive calcola automaticamente le medie 
consuntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A22 

Budget (occorre Visicalc). Un prospetto che con l'inserimento di dati 
mensili e di medie preventive calcola automaticamente le medie con¬ 
suntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A23 

Cinque modelli Spreadsheet, tre modelli data base, due modelli 
Word Processor. Versione per Appleworks. Due dischetti. Lire 
80.000 (abbonati 70.000). 

AP12/A24 

Cinque modelli Spreadsheet. Versione per VisiCalc. Lire 40.000 
(abbonati 35.000). 

AP12/T25 


Volano. Un gioco in alta risoluzione per due sfidanti. Illustratore. Un 
programma di grafica che offre la possibilità di realizzare ottimi disegni 
anche a chi non è troppo ferrato in materia. Autoschermo. Crea in 
automatico videate di presentazione dei programmi inseriti in un di¬ 
schetto; dall'aspetto molto professionale, evidenzia infatti i programmi 
con una barra luminosa comandabile con le frecce e fa partire il 
programma così evidenziato con un semplice Return. Lire 30.000. 
AP15/A32 

Computer cuisine. Un ricettario computerizzato sul quale memoriz¬ 
zare ingredienti e ricette a centinaia, eliminando così sia il fastidio di 
mille pezzetti di carta sparsi per i cassetti, sia il pericolo di perdersi 
preziose ricette. Con possibilità di stampa delie singole ricette e un 
menù completo dei migliori piatti creati da Gualtiero Marchesi, il più 
famoso cuoco d'Italia. Lire 20.000. 

AP15/T33 Euclide. Il massimo comun divisore e il minimo comune 
multiplo in un programma che ne permette l’immediata comprensione. 
Isomeri. Fa parte del più ampio progetto americano Seraphim, per lo 
studio della chimica. Lire 15.000. 


Animazione di una rotazione tridimensionale. Un esempio di come 
una rotazione tridimensionale permette di rappresentare gli oggetti 
proprio come li vediamo. Trasformazione da File a Data. Una utility 
per risolvere il problema di aggiungere a un programma preesistente 
delle istruzioni DATA ricavati da un altro file. Lire 25.000 (abbonati 
15.000). 
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Applicando 14 

AP14/N26 

Golf. Un programma in altissima risoluzione grafica che permette di 
disegnare il proprio percorso di golf per poi giocarci a piacimento con 
gli amici. Autopiù. Con l'aiuto di questo programma non dimentichere¬ 
te più gli appuntamenti fissi dedicati alla manutenzione della vostra 
automobile. Lire 20.000. 

•AP14/N27 

Applebaby. Tre giochi didattici: il primo per imparare a contare in età 
prescolastica; il secondo per ripassare le tabelline; il terzo per eserci¬ 
tarsi nell’ortografia. Lire 20.000. 

“AP14/A28 

Rimborso spese, (occorre Appleworks). Un prospetto che vi permet¬ 
te di preparare le vostre note spese automaticamente in cinque minuti. 
Lire 15.000. 

•AP14/A29 

Rimborso spese, (occorre VisiCalc). Un prospetto che vi permette di 
preparare le vostre note spese automaticamente in cinque minuti. Lire 


15.000. 

•AP14/T30 

Frutteti. Un aiuto a risolvere uno dei più classici problemi di estimo. In- 
stant Poster Voi scrivete con la tastiera del vostro Apple la frase che 
volete, e subito dalla stampante esce un poster formato gigante. Lire 
15.000. 


Applicando 15 

AP15/N31 

Sintetizzatore di suoni. Con questo programma potete dotare ì vostri 
lavori di una colonna sonora eccezionale; permette infatti la sintetìzza- 
zìone dei suoni più diversi; dal canto dell’uccellino, alla mitragliatrice, 
dal treno in corsa all'aereo, e tantissimi altri, compresa la musica. 


Sintetizzatore - AP1VN31 

Una utility per creare adeguate colonne 
sonore nei vostri programmi. Nel dischetto 
sono già registrati: batteria laser, canti 
di uccelli, esplosioni, canto dei marine, ecc. 


Applicando 16 

AP16/N34 

Dieta personalizzata. Con questo programma, un pratico sistema di 
Data Base nutrizionale, è possibile personalizzare, a seconda della 
propria costituzione fisica e delle abitudini alimentari, una dieta bilan¬ 
ciata, a lungo o a breve termine. Il dischetto contiene un file dati di 400 
cibi, la cui composizione è analizzata in calorie, proteine, grassi, 
vitamine, colesterolo. Lire 25.000. 

API 6/N35 

Designer. Il concetto dei potenti e costosi programmi di CAD/CAM alla 
portata dell'Apple //, per fare del computer uno strumento per disegna¬ 
re semiprofessionale. Il gioco del pompieri. E’ scoppiato un incendio, 
e voi siete un pompiere che deve salvare il maggior numero di persone 
prima che muoiano soffocate tra le fiamme. Se sbagliate tre volte, 
sarete nei guai: il severo comandante.., Timer. Un efficace program¬ 
ma per trasformare l’Apple // in un fedele e preciso contasecondi che 
avverte del passare del tempo, e al momento giusto... Lire 25.000. 
API 6/N36 Cento One-liner. Utilities, routines, dimostrativi di grafica e 
di suoni, e perfino giochi. Cento programmi su un solo dischetto, tutti 
rigorosamente scritti in una sola linea di Basic. Da usare cosi come 
sono, da studiare come esempi di sintesi, o da trasferire nei vostri 
programmi. Lire 25.000, 

AP16/N37 Rubrica telefonica. (Occorre AppleWorks). Un’agenda 
telefonica che individua in tempo reale qualunque numero memorizza¬ 
to, che stampa le etichette per spedire gli auguri di Natale e di Pasqua 
solo a chi volete voi, che seleziona, con molteplici possibilità, gruppi di 
nominativi e stampa elenchi su carta da distribuire aggiornati ogni 
mese ai collaboratori. Lire 15.000. 


Computer-cuisine - AP15/A32 

Un Data Base con il quale raccogliere tutte 
le ricette di cucina. La consultazione e la 
stampa delle ricette diventano immediate. 
Con 10 ricette di Gualtiero Marchesi. 


*/ dischetti contrassegnati con asterisco contengono anche il pro¬ 
gramma Tombola, omaggio natalizio di Applicando e di Compushop, 
via Nomentana 265-273, Roma. 
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LATUfl AZIENDA 

FIN PERICOLO 


(adesso lo sai) 



Questo dischetto 

contiene 

la tua azienda a 


Questo dischetto 
contiene 
la tua azienda a 


^55'C 


La tua azienda è in pericolo nel suo 
punto vitale: il “computer”. 

Ed è concentrata su pochi supporti 
magnetici che devi proteggere. Dal¬ 
l’incendio soprattutto, dal furto, da at¬ 
ti vandalici o semplicemente da mani 
ndiscrete. ■ 


RICHIESTA INFORMAZIONI 


Vice 300 E MCC 100 

Due esempi della linea ignifughi 
prodotta dalla svedese HADAK. 


Per informazioni spedire questo coupon, in busta chiu¬ 
sa, a DATAMATIC S.p.A - via Volturno, 46 - 20124 Milano 
tei. (02) 6073876 (5 linee r.a.) - via Città di Cascia, 29 
00191 Roma ■ tei. 3273581 (4 linee r.a.). 



è un prodotto 


datamatic 

TRATTA BENE IL TUO CALCOLATORE 


disponibile anche 
presso i migliori 
rivenditori 
di prodotti per 
l’informatica. 


NOME.-... 

COGNOME. 

INDIRIZZO. 

.TEL. 






























MEMORIA DI GENIO- 


HP DATA MEMORIES... GENIO DI MEMORIA 


MEE ■ Memorie per Elaboratori Elettronici S.p.A. 

Forniture per Centri Elaborazione Dati 
Sede Amm.va: 20144 Milano - Via Boni 29 
Tel. 4988541 (4 linee r.a.) - Telex 324426 MEE-I 



Filiali e Agenzie: Milano - Bergamo - Torino 
Biella • Padova - Parma - Bologna • Firenze - Ancona 
Roma - Napoli - Catania - Oristano - Bari - Genova 
Bolzano - Mestre 


LA SCELTA PIÙ LOGICA 












